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DESIGN FEATURES. * 
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SOURCE LANGUAGE. SELECTION’ 


IN THE . EARLY DESIGN STAGES OF THE COBOL COMPILERS CONSIDERATION WAS 
GIVEN. ‘TO IMPLEMENTING PROPER SUBSETS OF THE COBOL SOURCE LANGUAGE 
AS SPECIFIED IN THE USA STANDARD COBOL MANUALs IT WAS FOUND THaT 
IMPLEMENTATION OF A SUBSET HAD THE FOLLOWING DISADVANTAGES! 


le THE. SUBSETS SPECIFIED. WERE VERY LIMITED WITH = MANY 
RESTRICTORS. G3 eit eres UNIQUE DATA"NAMES» NO NESTED 
REDEFINES» ETC. | 


2. THE LANGUAGE ELEMENTS SEEMED TO. "BE ARBITARILY SELECTED ON 
THE BASIS OF REDUNDANCY RATHER THAN OIFFICULTY oF. 
IMPLEMENTATIONs : . 7 


36 THE SUBSETS SPECIFIED WERE DIFFICULT TO USE. EsGs THE USER 
HAD TO REMEMBER IF HE COULD SAY "ZERO" OR “ZEROES"s 


fe ALTHOUGH UPWARD COMPATABILITY TO 83500 CogoL COULD RE 
ASSURED* COMPATABILITY IN THE OTHER DIRECTION WAS NOT SO 
SAFE« | : .e 


Ss THE «COST OF DEVELOPMENT» MAINTAINENCEs AND CHECK OUT OF A. 
MULTIPLICITY OF COMPILERS SEEMED UNREASONABLE. 


IT was ‘THEREFORE DECIDED THAT THE HIGH. LEVEL OF EACH LANGUAGE MODULE” 
WOULD © “BE. IMPLEMENTED WITH AN EYE TOWARD .COMPATABILITY WITH THE 
B3S500 LANGUAGE EXTENSIONS» AN ATTEMPT TO “SHOEHORN® THE COMPILER 
INTO -SMALL MEMORY MACHINES WOULD THEN BE CONSIDERED WHEN THE 
IMPLEMENTATION REQUIREMENTS WERE KNOWs — | | 


MULTI@PHASE COMPILATION. 


THE ADVANTAGES OF “MULTI®PASS" OR MULTI=PHASE COMPILATION ARE? 


THE 


As 


26 


le 


Be 


BETTER UTILIZATION DF SMALL MEMORY STORES». THE ORIGINAL 


TEXT IS TRANSFORMED TO A MORE CONVENIENT FORM BY PASSING 
IT AGAINST A PART OF THE COMPILER» THE TRANSFORMED TEXT IS 
PASSED TO THE NEXT PHASE VIA AN INTERMEDIATE WORK FILEs IN 
THIS WAY THE DATA IS MANAGED IN A SOMEWHAT SEQUENTIAL 
MANNER*s MINIMIZING RANDOM OVERLAYING AS IN A DATA PAGING 
OR: VITUAL MEMORY MANAGEMENT SYSTEMs IN THE SAME WAY CONE 
OVERLAYS ARE MINIMIZED BECAUSE ONLY A PART OF THE CODE IS 
INVOKED TO TRANSFORM ALL THE DATA FOR THE PHASEs 


IT IS POSSTRLE FOR ONE PHASE TO BE CODED AND CHECKED QUT 
BEFORE A PRIOR PHASE BY BUILDING THE INTERMEDIATE FILES 
REQUIRED WITH ANOTHER PROGRAMs THIS IS ESPECIALLY 
IMPORTANT WHEN SIMULATING WHERE THE COST OF SIMULATING ALL 
PRIOR PHASES IS PROHIBITIVEs -.. 


DISADVANTAGES OF “MULTISPHASE eaMe TEA TEE ARES 


* * 


THE FORMAT OF EACH TOKEN » AS” 17 APPEARS TO EACH PASS~s 


“MUST BE WELL DEFINEDs IF TOKEN FORMATS CHANGEs THERE ARE 


MANY PLACES THAT CAN BE (APFECTEDS 


EXTRA CODE IS REQUIRED IN EACH PHASE TO GET AND PUT THE 


TOKENS. 


IF A LARGE MEMORY IS AVAILABLE> THERE. IS NO EASY WAY TO 
COMAINE PHASESe EsGe LABEL AND. DATASNAME QUALIFICATION 
RESOLUTION COULO BE COMBINED IF THERE WAS SPACE FOR THE 
INTERMEDIATE: TABLESs 


A CERTAIN FIXED OVERHEAD IS.  Coueee FOR OPENING AND 


CLOSING OF THE INTERMEDIATE FILES EVEN FOR A MINIMUM 


SOURCE LANGUAGE DECKs 


DEBUGGING CAPABILITIES. 


A VARIETY OF DEBUGGING OUTPUT HAS BEEN INCORPORATED IN THE COROL 
‘COMPILER IN ORDER TO MINIMIZE THE DEBUGGING ERROR OETECTION AND 
ERROR . CORRECTION TIME. THIS OUTPUT IS PRINTED WHEN THE FOLLOWING 
DOLLAR CARD RESERVED WORDS ARE USED! 
<NO> PARSE? INITIAL PARSING 
<NO> DICT3 DICTIONARY PROCESSING: 
<NO> DNQUAL?  DATA@NAME QUALIFICATION RESOLUTION 
“<NO> LQUAL! LABEL QUALIFICATION RESOLUTION 
<NO> MOIGE! MERGECNOTEt "MERGE" HAS ANOTHER MEANING) 
<NO> DATSYNt DATA DIVISION SYNTAX CHECKING 
<NO> EXPLONDE!t EXPLODE 
<NO> PROSYN? PROCEDURE DIVISION SYNTAX CHECKING 
<NO> CODEGENt CODE GENERATION 
<NO> FIXUP! FIXUP THE CODEFILE 
WHEN THIS OPTION IS USED» A FORMATTED TOKEN AS SEEN.BY THE GET AND 
PUT PROCEDURES FOR THAT PHASE IS PRINTED» IN ADDITION» THE NAME OF 
EACH PROCEDURE AND ANY PERTINANT VARIABLES IS PRINTED UPON ENTERING 
THE PROCEDUREs MOST RECURSIVE PROCEDURES ALSO MONITOR THEIR ExtT 
POINTS FOR EASE OF DERUGGINGs IT IS POSSISLE TO SEE EACH PROCESS» 


FOR THE DURATION OF SEVERAL CARDS» BY TURNING MONITOR ON OR OFF FOR 
THE DESTRED PAASECS 3s 


OYNAMIC MEMORY« 


WHEN DESIGNING A COMPILER FOR MANY MEMORY CONFIGURATIONS» IT IS 
IMPORTANT TO EFFECTIVELY UTILIZE ADDITIONAL MEMORY IF IT Is 
AVAILABLEs THE COBOL COMPILER ACCOMPLISHES THIS BY MANAGING THE 
DYNAMIC SPACE DECLARED AT COMPILE TIME.s | 


A CERTAIN MINIMUM SPACE IS REQUIRED FOR BUILDING LISTS AND TABLES 
DURING THE DIFFERENT PHASESe ASSOCIATED WITH THIS MINIMUM SPACE ARE 
LIMITS EeGs THE NUMBER OF DATA@NAMES» PROCEDURE“NAMES» ETCe IF A 
PARTICULAR SOURCE PROGRAM EXCEEDS ANY OF THESE LIMITS» MORE SPACE 
MUST BE DEDICATED BY INCREASING THE DYNAMIC SPACE AND RECOMPILINGs 
AN ATTEMPT HAS BEEN MADE TO MAKE THESE RESTRICTIONS “REASONABLE 


IF MORE SPACE IS AVAILABLE» THE COMPILER IS DESIGNED To USE Twat 
SPACE FOR A SIGNIFICANT SPEED GAINs 


INTERMEDIATE FILE DESIGN. 


IN ORDER TO MINIMIZE THE INTERMEDIATE FILE SIZES» INFORMATION ABnNtT 
THE ORIGINAL TEXT TS DISTRIBUTED TO SEVERAL FILES WHICH ARE ORDERED 
TO EACH OTHERs THE INDIVIDUAL FILES. ARE THEN PROCESSED WITHOUT THE 
NEED To cnPY  EXTRAWEOQUS INFORMATIONe WHEN ALL OF THE 
TRANSFORMATIONS ARE COMPLETE THE FILES ARE MERGEDs 


CARE MUST BE TAKEN TO PRESERVE THE ORIGINAL ORDERING OF THE FILES« 


THE DIAGRAM BELOW SHOWS THE FLOW OF THE INTERMEDIATE FILES FROM ONE 
PHASE TO ANNTHERs THE FIRST RECORD OF THE SEGFILE IS USED TO PASS 
GLOBAL DATA BETWEEN PHASES EsGs THE DONT«GENERATE*CONE FLAGs THE 
ABORT FLAG IN CASE OF A DRASTIC ERROR» ETCs THIS ASPECT OF ThE 
SEGFILE IS nat SHOWN« 
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PROCEDURE OIVISION 
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PHASE) 


INITIAL PARSING CPARSE). 


INPUT FILES. 


CARDSCREADER)!2 


SOURCECOPTIONAL OISK)3 


LIBRARYCOPTIONAL DISK)! 


OUTPUT FILES: 


NEWSOURCECOPTIONAL DISK)$ 


LIBRARYCOPTIONAL DISK)! 


SQURCE CARD IMAGES OR PATCH CARDS. 


SOURCE CARN IMAGES TO: WHICH PATCHES 
MAY BE APPLIEDs 


SOURCE CARD IMAGES MERGED WITH THE 


PRIMARY FILE WHEN A COPY STATEMENT 15S 
ENCOUNTEREDs SA 


SOURCE CARD IMAGES TO WHICH PATCH 


CARDS HAVE BEEN APPLIEDs 


NEW LIBRARY. FILECS) CREATED WHEN LL" 


SPECIFIED IN COLUMN 7s 


REPORTCDISK)8 
ALLFILECOISK)? 


DNFILECOISK)! 


- GENERAL FUNCTIONS. 


ALL CARD IMAGES PROCESSED INCLUDING 
DOLLAR CARDSs LIBRARY CARDS AND PATCH 
CAROSe THIS FILE IS USED TO PRINT THE 
OPTIONAL LISTING OR ERROR REPORTs 


CONTAINS ALL CONSTANT INFORMATION 
ABOUT EACH TOKEN PROCESSED. THIS 
BECOMES THE CONTROLLING FILE OQURTNG 
THE MERGE PHASEs 


CONTAINS PICTURE STRINGS AND ALL 


VARIABLE NAMES ISOLATED. EsGs 
SECTION“NAMES* PARAGRAPH®NAMESs AND 
DATA*NAMES» 


Le MERGE SOURCE LANGUAGE INPUTS INCLUDING LIBRARY CARD 


IMAGES .e 


2s SCAN AND ISOLATE BASIC SYMBOLS EeGs WORDSs INTEGERS» 
NON®NUMERIC LITERALS» NUMBERS* ETCs 


se 


33 LOOK UP RESERVED WORDS IN A RESERVED WORD LIST. 


as LOOk UP WORDS IN THE OPTIONAL COPY REPLACING LIST OR’ THE 
OPTIONAL SPECIAL NAMES LISTe 


56 VERTFY THAT ALL FOUR DIVISIONS ARE PRESENT ANO. IN” THE 
PROPER ORDER. IF THIS MUCH IS NOT CORRECT» THE ABORT FLAG 
Is SET TO BYPASS THE REGULAR PROCESSING AND SHORTCUT TO 
THE FIXUP PHASE. 


RESERVED WORN LOOKUP. 


IN OROER TO MINIMIZE THE MEMORY REQUIRED TO HOLD THEMs THE CORNL 
RESERVED WORDS ARE ORGANIZED INTO Two PRIMARY LISTS? 


1s IDENTIFICATION THRU WORKING@*STORAGE®s 
2a PROCEDURE DIVISION RESERVED WORDS. 


THE WORDS ARE ARRANGED IN SUBLISTS BY LENGTH» EsGs "IS"» “BY™s "NFM, 
ETC. APPEAR wITH OTHER TWO CHARACTER RESERVEG WORDSs A GUESS AS TO 
THE FREQUENCY OF USE IS APPLIED TO EACH SUBLIST WITH THE MORE 
FREQUENT WORDS APPEARING AT THE BEGINNING OF THE SUBLIST® 


WHEN A MATCH IS FOUND BY SEARCHING THE SUBLIST SEQUENTIALLY» THE 
RESERVED WORD KEY AND CATEGORY IS PROVIDEDs NOISE WORDS» NNTE 
SENTENCES» AND NOTE PARAGRAPHS ARE DELETED WHEN DETECTED. 


SPECIAL FUNCTIONS. 


THERE ARE CERTAIN SPECIAL FUNCTIONS ACCOMPLISHED IN THIS PHASFs 
THESE APPEAR BELOW ACCORDING TO THE DIVISION» SECTION» OR PARAGRAPH 
HEADER ASSOCIATED WITH THE FUNCTION. 


MONITOR SENTENCE. 


Se eae aGeaeane tn B® Oe 


1s VERTFY THAT A FILE*NAME IS DECLARED 


2e IDENTIFY AND MARK DATA#NAMES AND PROCEDURE*NAMES TO RE 
MONITOREDs 7" 


36 PASS THESE NAMES TO THE MERGE PHASE AS NON®NUMERTC 
LITERALS ON THE ALLFILE. 


Ge IF THE wORD “ALLY APPEARS AS THE PROCEDURE*NAME LISTs THE 
NAME OF EACH SECTION AND PARAGRAPH IS PASSED TO THE MERGE 
PHASE AS A NON*NUMERIC LITERAL ON THE ALLFILEs 


DATE*COMPILEND. | 


le SCAN TO THE END OF THE SENTENCEs 


2s BUILD AN IMAGE CONTAINING DATE AND TIME AND OUTPUT IT TO 
THE REPORT FILE. 


OBJECT=COMPUTER, 


Le VERTFY AND SAVE THE MEMORY SIZE VALUECIN CHARACTERS) FOR 
THE FIXUP PHASE. 


26 SAVE SEGMENT*LIMIT VALUE. 


36 SAVE DATA SEGMENT@LIMIT VALUEs 


SPECTAL“NAMESs 


le SAVE THE CURRENCY SIGN VALUEs 
2s SAVE THE DECIMAL“POINT IS COMMA VALUEs 


30 BUILO THE MNEMONIC NAMES LIST 


DATA DIVISION, 


le ASSIGN AN OCUR NUMBER TQ EACH FILE*“NAME AND OATA*NAME 
DECLARED. THIS NUMBER REGINS WITH 1 AND INCREASES BY 1 (€0 
Is RESERVED FOR ERROR REPORTING) « THIS OCUR BECOMES THE 
INTERNAL REPRESENTATION FOR THE ODATA*NAME AFTER THE 
DICTIONARY PROCESSING PHASE. FILLER ENTRIES ARE NNT 
ASSIGNED AN OCUR UNLESS THEY ARE O01 FILLER os ENTRIES OF 

A FILE. oe : 


2¢ OUTPUT A DUMMY FD TO CORRESPOND TO THE WORKING*STORAGE 
SECTION HEADER.«. THIS DUMMY FD IS REQUIRED FOR THE 
DATA*NAME QUALIFICATION RESOLUTION PHASE. 


FILE SECTION. 


le PARSE THE FILE=NAME OF AN FD OR SD DECLARATIONs SET LEVEL 
z 0 AND THE APPROPRIATE FLAGS TRUEs 
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DROP THE DATA RECORD(S) CLAUSE AND ITS OPERANDSs 
MARK THE OPERANDS OF THE LABEL RECORD(S) CLAUSE. 


PARSE THE ITEM DESCRIPTIONS OF THE FILE RECORD (CSEE 
WORKING*STORAGE SECTION). 


WORKING@*STORAGE SECTIONe 


le 


60 


76 


PARSE ITEM DESCRIPTIONSs 

ISOLATE AND VERIFY PROPER LEVEL INDICATOR« 
RECOGNIZE AND MARK FILLER ENTRIES« 

MARK THE OPERANDS OF A REDEFINES OR RENAMES CLAUSEs 


RECOGNIZE A PICTURE DECLARATION AND CONTROL THE SCANNER TO 
ISOLATE A PC STRINGs 


MARK INDEX NAMESs 


MARK ALL ITEMS THAT ARE NOT "CORRESPONDING™ CANDIDATES. 
EeGs ENTRIES WITH FILLER SPECIFIED» LEVEL = 66% 775 OR BA» 


- ENTRIES CONTAINING AN GCCURS OR REDEFINES CLAUSE» THESE 


ARE NOT CONSIDERED FOR SELECTION OF CORRESPONDING PAIRSs 


PROCEDURE DIVISION. 


ie 


RECOGNIZE AND MARK SECTION NAmES AND PARAGRAPH NAMES) AND 
ASSIGN THEM A LABEL OCUR NUMBERs THIS NUMBER BEGINS WITH 
1 AND INCREASES BY 1 FOR EACH NEW SECTION OR PARAGRAPH (0 
IS RESERVED FOR ERROR REPORTING)« THIS LABEL OCUR BECOMES 
THE INTERNAL NUMBER FOR THE NAME AFTER THE OICTIONARY 
PROCESSING PHASE. 


ASSIGN A SEGMENT NUMRER TO. EACH SECTION BASED NN 
SEGMENT“LIMIT AND PRIORITY NUMBER DECLARATIONSs THESE 
SEGMENT NUMBERS ARE SEQUENTIAL STARTING WITH Oc 


RECOGNIZE GO TO PARAGRAPHS AND MARK THEM AS LEGAL OPERANDS 
OF AN ALTER STATEMENTs 


IDENTIFY AND MARK OPERANDS OF A GO TOs ALTERs PERFORMs OR 
A PERFORM «a0 THRU oss STATEMENT. 


MARK OPERANDS OF OTHER SPECIAL 1/70 VERBS AS PROCEDURE 
NAMES» 


RECOGNIZE AND MARK OPERANDS OF A CORRESPONDING VERB C€ EaGe 
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MOVE CORRESPONDING A TO 8)e 


DYNAMIC MEMORY. 


THE OYNAMIC MEMORY FOR PARSE IS UTILIZED AS FOLLOWS! 


RESERVED WORDS 


COPY.,BASE see eunameneany 
COPY REPLACING 
LINK LIST 


COPYsNEXTsAVAIL “eae ea> 
AVAILABLE 


MNEMONICsBASE se" eeeee> 
 MNEMONIC NAME 
List © 


IF COPYsNEXTsAVAIL EVER MEETS MNEMONICe BASE THEN AN ERROR MESSAGE IS 
ISSUED WITH A REQUEST TO RECOMPILE USING MORE MEMORYs 
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DICTIONARY PROCESSING (DICT). 


INPUT FILESs 


ONFILE: © CONTAINS ALL PICTURE STRINGS» DECLARED VARIABLE NAMFS 


AND REFERENCES TO THE VARTABLESs 


Q“UTPUT FILES: 


ONFILE? ALL PICTURE STRINGS AND VARIABLES ARE REDUCED TO AN 


OCURs 


GENERAL FUNCTIONS. 


le 


2s 


BUILD | A DICTIONARY OF DECLARED DATA*NAMES AND 
PROCENURE*@NAMESs 


LOOK UP REFERENCES TO THE DECLARED VARIABLES AND 
SUBSTITUTF AN OCUR NUMBER AND A SAME NAME QCUR NUMBER FOR 
THE SYMBOL STRINGs THE SAME NAME OCUR NUMBER POINTS TO ANY 
PRIOR: OQOCCURENCE OF THIS NAME IN A LINK LIST FASHIONe ITF 
THE SAME NAME OCUR = THE OCUR THEN THE LAST ELEMENT OF THE 
LIST HAS REEN REACHED OR THE NAME IS UNIQUE. 


ASSTGN A PICTURE OCUR NUMBER TO EACH NEW PICTURE STRING 
THAT WAS DECLAREDe A PICTURE STRING IS DISTINGUISHED FROM 
OTHER VARIABLE NAMES BY ADDING A BLANK TO THE END OF THE 
STRING AND INCREASING THE SYMBOL LENGTH BY 12 IN THE 
SCANNING PROCESSC(CPARSE)« : : 


THESE FUNCTIONS ARE OONE ON AN ITERATIVE BASISe WHEN THE 
FIRST ATTEMPT IS MADE TO ADD A NAME TO THE DICTIONARY AND 
IT WILL NOT FIT» A DICTIGNARYsFULL«sFLAG IS SET TO 1 AND 
THAT TOKEN IS MARKED AS UNPROCESSED ON THE OUTPUT FILE. 
WHEN A NAME ITS LOOKED UP IN THE DICTIONARY AND IS FOUND» 
IT IS MARKED AS PROCESSED ON THE OUTPUT FILE AND FURTHER 
PROCESSING OF THAT TOKEN IS INHIBITED FOR THE OURATION OF 
THE ITERATIONSs IF THE NAME IS NOT FOUND» AND THE 
DICTIONARYseFULL«eFLAG ITS 4% THE TOKEN IS MARKED AS 
UNPROCESSED ON THE QUTPUT FILEs OTHERWISE AN QCUR NUMRER 
OF O IS RETURNED TO INDICATE "UNIDENTIFIED NAME* AND THE 


TOKEN IS MARKED AS PROCESSEDs THIS CONTINUES UNTIL ALL 


VARTABLE NAMES HAVE BEEN AODED TO THE DICTIONARY. 
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DICTIONARY SEARCH. 


ASSOCIATED WITH EACH VARIABLE NAME IS A STACKHEAD NUMBERe THIS 
NUMBER IS CREATED IN PARSE BY APPLYING A TRANSFORMATION TO THE 
CHARACTER STRING COMPRISING THE NAME» IT IS USED AS AN INDEX INTO 
A STACKHEAD ARRAY TO FIND THE BEGINNING OF THE LINK LIST IN WHICH 
THIS NAME SHALL APPEAR» A LINK OF O INDICATES END OF THE LIST OR AN 
EMPTY LISTs 


TWO STACKHEAN ARRAYS ARE MAINTAINED IN. THE LOOKUP PROCESS» ONE FNR 
DATA*NAMES AND THE OTHER FOR PICTURE STRINGS AN) LABELS 
CSECTIONSNAMES AND PARAGRAPH™NAMES)«¢ THE PICTURE STRINGS) ARE 
DISTINGUISHED FROM THE LABELS BECAUSE THEY HAVE A BLANK CHARACTER 
APPENDED TO THE ENDs 


DYNAMIC MEMORY. 


THE STACKHEAD ARRAYS AND LINK LISTS ARE MAINTAINED IN THE AVAILABLE 
DYNAMIC MEMORY. ONE OR MORE ITERATIONS THROUGH THE FILE MAY RE 
ELIMINATED BY INCREASING THE SIZE OF DYNAMIC FOR THIS PHASEs 


EACH ITERATION CONSISTS OF TWO PASSES< 


“PASS Is 


1s COPY ALL UNPROCESSED TOKENS OF THE ENVIRONMENT DIVISION TO 
THE OUTPUT FILEs 


2. ADD ALL DECLARED DATA@NAMES AND LABELS TO THE DICTIONARYs 
3s LOOK UP THE OPERANDS OF A REDEFINES OR RENAMES CLAUSE. 
THIS SOLVES THE PROBLEM OF IMPLIED QUALIFICATION FOR 
DUPLICATE DECLARATIONS IN THAT THE LAST MENTIONED 


OCCURENCE NUMBER WILL RE FOUND RATHER THAN THE FINAL 
QCCURENCE OF THAT NAMEe — 


4s LOOK UP ALL DATA*NAMES OF THE PROCEDURE DIVISION.» THE ocuR 
NUMBER FOUND WILL POINT TO THE FINAL OCCURENCE OF THE SAME 
NAME LINK LISTe 

Ss COPY UNPPOCESSED LABELS TO ener FILE. 

PASS IT. 


ls LOOK UP UNPROCESSED NAMES OF THE ENVIRONMENT DIVISIONs 


2e COPY UNPROCESSED DATA*NAMES TO THE OUTPUT FILE» 
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LOOK UP LABEL REFERENCES OF THE PROCEDURE DIVISIONe IF THE 
LABEL IS A OUPLICATEs THE OCUR NUMBER OF THE FINAL 
DECLARATION WILL BE FOUND. 


IF THE DICTIONARYoFULL*+FLAG = 1 THEN ITERATE TO PASS Is 
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DATAPNAME QUALIFICATION RESOLUTION CDNQUAL). 


INPUT FILESe 


ONFILEt CONTAINS A SAMENAME OCUR FOR DECLARED DATA@NAMES AND 


AN UNRESOLVED OCUR FOR DATA"NAME REFERENCES AND 
QUALIFIERS. | 


OUTPUT FILES.» 


DNFILE$ CONTAINS RESOLVED OCUR FOR DATA*NAME REFERENCES 


GENERAL FUNCTIONS.» 


le 


ge 


56 


6a 


STARTING AT THE MATA DIVISION OF THE DONFILE CREAD ONLY)D~s 
BUILD AN EXPLICIT DATA™NAME TABLE CONTAINING THE DATA@NAME 
FLAGS (CDONeFLAGS)» THE SAME NAME OCUR CSNAME)» AND THE 
SCOPE OCUR FOR EACH EXPLICIT DATA*NAMEs THE GROUP FLAG IS 
SET AT THIS TIMEe. 


RE"READ THE ENTIRE DNFILE AND WRITE THE RESOLVED OCUR FOR 
REFERFNCED DATA@NAMESs« THE QUALIFIER TOKENS ARE OROPPED aT 
THIS TIMEs | 


SET THE LABEL RECORD OPERAND FLAG FOR ALL ELEMENTS OF A 
LABEL RECORD. 


SELFCT CORRESPONDING PAIRS» THE PAIRS ARE DELIMITED BY A 
CORRESPONDING SENTINEL SO THAT THE FILE CAN BE PROCESSED 
PROPERLY IN THE MERGE PHASE. 


UPDATE THE DATA*NAME REFERENCE COUNT BASED ON THE RESOLVED 
OCURe — | 


SET THE MONITORED FLAG OF THE DATA“NAMES LISTEO° IN THE 
MONITOR STATEMENTs | | 


READ THE ONFILE AND WRITE A NEW DNFILE WITH THE UPDATED 


DNeFLAGS POSTED TO THE EXPLICIT DATA*NAME TOKENSs 


WHEN THE PROCEDURE DIVISION IS FOUND ON THE INPUT FILE» 
BEGIN THE LABEL QUALIFICATION RESOLUTION PHASECLOQUAL)>s 
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SCOPE OF AN ENTRYs 


THE SCOPE OF EACH EXPLICIT DATA*NAME IS CALCULATED FROM ITS LEVEL 
NUMBER WHEN RUILOING THE DATA=NAME TABLEs THE SCOPE OF A GROUP ITEM 

TS THE LAST FLEMENTARY ITEM OF THE GROUPs THE SCOPE OF AN 
ELEMENTARY ITEM OR AN INDEX NAME OR A RENAMES ENTRY» OR A CONDITION 
NAME IS ITSELF. 


EXAMPLE 3 


OCUR SNAME SCOPE 


(01) 01 1i Ol Ao 


(02) ~—602 08 02 Be 
(03) 03 03 88 C VA 1» 5S THRU 106 
(04) 04. 04 03 0 PC Xs 

(05) 05 08 O03 E. 

(06) 06 06 O4 F PC Xe 

(07) 07 07 04 G PC Xe. 

(08) 08 08 | BB H VA 205 306 
(09) 09 09 O02 I PC Xs | 
(10) 10 10 66 J RENAMES 0 THRU Fe 
(11) 11 11 66 K RENAMES Bs 

(12) 12: «644 O1 Xs - 

(13) 02 130 02 B PC Xe 

(14) 04. 7 02 0 PC Xe 


THE SAME NAME AND SCOPE ATTRIBUTES ARE USED IN RESOLVING REFERENCES 
TO OUPLICATE NAMES AND IN THE SELECTION OF CORRESPONDING PAIRS FNR 
A CORRESPONDING VERB. 


DYNAMIC MEMURY« 


THE EXPLICIT DATA*NAME TABLE IS BUILT IN DYNAMIC MEMORYs EACH TABLE 
ENTRY OCCUPIES 34 BITSe IF THE ENTIRE TABLE CAN NOT BE CONTAINED» 
AN ERROR MESSAGE IS ISSUED WITH A REQUEST TO RECOMPILE USING MORE 
MEMORYa 
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LABEL QUALIFICATION RESOLUTION CLQUAL)s 


INPUT FILES« 


ONFILES CONTAINS UNRESOLVED LABEL REFERENCESs 


OUTPUT FILES. 


ONFILE? CONTAINS A UNIQUE LABEL OCUR FOR REFERENCED SECTINNS 


OR PARAGRAPHSs 


GENERAL FUNCTIONS, 


Ls 


2s 


Se 


66 


STARTING WITH THE PROCEDURE DIVISION OF THE ONFILE (CTHE 
FILE WAS LEFT OPEN IN DNQUAL)» BUILD AN EXPLICIT LAREL 
TABLE CONTAINING THE LABEL FLAGS» SAME NAME OCURs SEGMENT 
NUMBER» AND SECTION OCUR ASSOCIATED WITH THE PARAGRAPH TF 
ANYs. THE FILE IS WRITTEN OURING THIS PROCESSs 


REAN THE FILE AND WRITE THE RESOLVED OCUR FOR REFERENCED 
LABELS» THE LABEL OUALIFIERS ARE OROPPED AT THIS TIMEs 


MARK THE MONITORED LABELS AND THE TERMINAL PARAGRAPH OF A 
PERFURM RANGEs 4 


UPUN ENCOUNTERING AN ALTER OPERANOs VERIFY THAT IT IS A GO 
TO PARAGRAPH AND MARK IT AS ALTEREDs © 


WHEN THE END OF FILE IS REACHED». ASSIGN A&A SEQUENTIAL 
TERMINAL PARAGRAPH NUMRER- TO EACH TERMINAL PARAGRAPH OF A 
PERFORM RANGE « : 


READ AND WRITE THE DNFILE WITH THE UPNMATED  LAREL 
INFORMATION POSTED TO EACH EXPLICIT REFERENCE OR LABEL 
REFERENCE TO ITs 
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DYNAMIC MEMORY. 


THE EXPLICIT LABEL TABLE IS BUILT IN DYNAMIC MEMORYs EACH ENTRY 
OCCUPIES 37 BITS: IF THE ENTIRE TABLE CAN NOT BE CONTAINED» aN 
ERROR MESSAGE IS ISSUED WITH A REQUEST TO RECOMPILE USING MORE 
MEMORY < ee, 


MERGE. 
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INPUT FILES. 


ALLFILE® CONTAINS CONSTANT INFORMATION ABOUT EACH TOKEN 


PROCESSED IN PARSE. 


ONFILES CONTAINS UNIQUE OCUR NUMBER FUR EACH DATA®NAME ANDO 


LABEL REFERENCED. 


OUTPUT FILES. 


ADNFILEs CONTAINS MERGED TOKENS OF THE ALLFILE AND THE ONFILEs 
PCFILE? CONTAINS PCINFO ENTRY FOR EACH UNIQUE PICTURE STRING 


OF THE DATA DIVISIONe » 


SEGFILE: EDIT MASKS GENERATED BY THE PICTURE ANALYZERs AND 


SYMBOLS TO BE PRINTED WHEN MONITORING ARE ADDED TO 
THIS FILE 


GENERAL FUNCTIONS. 


THE PRIMARY FUNCTION OF THIS PHASE IS TO MERGE THE ALLFILE ANO THE 


ONFILE GIVING THE ADNFILEs IN ADDITION THE FULLOWING FUNCTIONS ARE 
PERFORMED. ) 
1. THE DATA*NAME SYMBOLS TO BE PRINTED WHEN MONITORING ARE 
WRITTEN TO THE SEGFILE» AND THE MONITOREO OCUR VS THE 
MEMORY ADDRESS ARE PUT INTO A TABLEs A TABLE OF OCCUR 
NUMBERS VS THE LABEL SYMBOLS TO BE PRINTED IS PLACED IN 
ANUTHER TABLEs | no | 
26 ANALYZE UNIQUE PICTURE STRINGS CTHE PICTURE OCUR OF THE 
CURRENT PC IS GREATER THAN THE LAST ONE ANALYZED): AND 
CREATE A PCINFO ENTRY ON THE PCFILEs THIS ENTRY CONTAINS 
PC ATTRIBUTES LIKE SIZE» SCALE» CLASS» ETCe IF AN EDIT 
MASK IS REQUIRED IT IS WRITTEN TO THE SEGFILE AND ITS 
MEMORY ADORESS IS POSTED TO THE PCINFO ENTRY. 
36 A TABLE OF CONDITION@®NAME OCUR NUMBERS VS THE ASSOCIATED 


VALUE LIST IS CREATED FOR EACH LEVEL 88 ENTRY OF THE DATA 
DIVISION. | | 
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4s WHEN A MONITORED DATA®NAME IS SEENs ITS OCUR IS LOOKED UP 
IN THE MONITOR TABLE AND THE MONITOR ADORESS IS Pus Teo TO 
THAT ENTRY: 


5. WHEN A MONITOR LABEL LIST ELEMENT IS ENCOUNTEREDs THE 
SYMBOL TO BE PRINTED IS PROVIDED AS A NON@"NUMERIC LITERAL 
FOLLOWING THAT TOKENe® © 


66 WHEN A CONDITION*NAME IS REFERENCED THE PARENTHESIZED 
TEXT | THAT IS EQUIVALENT TO THE DESIRED TEST IS PROVINED 
FROM THE CONDITION*NAME TABLE. NOTE THE PARENTHESES ARE 
NECESSARY IN THE CASE WHERE THE CONDITION“NAME IS NEGATED. 


DYNAMIC MEMORY. 


THE MONITOR SYMBOL TABLES AND THE CONDITION*NAME TABLE ARE 
MAINTAINED In DYNAMIC MEMORY. IF THEY CAN NOT BE ENTIRELY 
CONTAINED» AN ERROR MESSAGE IS ISSUED WITH A REQUEST TO RECOMPILE 
USING MORE MEMORY» 
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DATA DIVISION SYNTAX CHECK (CDATSYN)s 


INPUT FILES. 


PCFILE! CONTAINS A&A PCINFO ENTRY FOR EACH UNIQUE PC STRING 


THAT WAS DECLAREDs 7 


ADONFILES PROCESSED AS A READ GNLY FILE UP TO’ THE PROCEDURE 


DIVISION. 


OUTPUT FILES. 


DNINFO? CONTAINS A ONINFO ENTRY FOR EACH EXPLICIT DATA®*NAME 


EXCLUDING FILLER ENTRIESs« THIS ENTRY CONTAINS 
ATTRIBUTES SUCH AS USAGEs ADDRESS» LENGTHs NUMBER OF 
SUBSCRIPTS REQUIRED» BLANK WHEN ZERO» ETCo 


SEGFILE! CONTAINS DATA DIVISION TOKENS» EsGs CARD TOKEN WITH 


ASSOCIATED ADDRESS INFORMATION TO BE PRINTEDs VALUES 
TO WHICH THE WORKING*STORAGE VARIABLES SHOULD BE 
INITIALIZED» ERROR OR WARNING MESSAGES» ETCe 


GENERAL FUNCTIONSs 


1. 
Zé 


36 


Ga 


‘Se 


PERFORM A DETAILED SYNTAX CHECK OF THE SOURCE PROGRAM UP 
TO THE PROCEDURE DIVISIONs 


SAVE THE FILE ATTRIBUTES SPECIFIED IN THE FILE*“CONTROL 
PARAGRAPHs THESE ATTRIBUTES ARE HELD IN THE FDeINFO TABLE. 


SAVE THE "SAME RECORD AREA eee ATTRIBUTE OF THE 
T=O*CONTROL PARAGRAPH IN THE FDeINFO TABLEs THE MULTI®@FILE 
TAPE 10 AND THE MULTI“FILE PACK ID ATTRIBUTES ARE ALSO 
SAVED IN THE FDsINFOQ TABLE®s 


COMBINE THE FD OR SO ATTRIBUTES DECLARED IN THE FILE 
SECTION WITH THOSE IN THE FOsoINFO TABLE. THE SET nF 
COMBINED INFORMATION IS USED TO CREATE THE FILE PARAMETER 
BLOCK (€FPB) FOR EACH FILE OECLAREDs 


PERFORM A DETAILED SYNTAX CHECK OF EACH DECLARED DATA@NAME 
AND ALLOCATE MEMORY FOR EACH ENTRY« A COP INDEX C(COPX) TS 
ASSIGNED AT THIS TIMEs THESE ATTRIBUTES* EeGs USAGE» BLANK 
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WHEN ZERO» NUMBER OF SUBSCRIPTS» ADDRESS» COPX»s ETCes ARE 
SAVED IN THE DNINFO FILE AND CAN BE RETRIEVED BY USING THE 
DATA*NAME OCUR NUMBER AS THE KEY 


6s PARSE THE "VALUE IS eo.” CLAUSE OF THE WORKING@STORAGE 
ENTRIES+e A&A TOKEN FOR INITIALIZING MEMORY AT RUN TIME IS 
ISSUED TO THE SEGFILE. 


Ve CREATE THE PSEUDO DATA SEGMENT OICTIONARY FOR DATA 
SEGMENTATION. 


Ba WHEN THE PROCEDURE OIVISION IS FOUNDs GATHER DATA 
SEGMENTS» FINALIZE SEGMENT*NUMBER AND DISPLACEMENTs BUILD 
THE COP TASLE* AND BEGIN THE EXPLODE PHASEs 


DATA SEGMENTATION. 


WHEN ALLOCATING STORAGE FOR DATA» a PSEUDO DATA DICTIONARY ENTRY IS 
BUILT FOR EACH DATA SEGMENT CANDIDATES EsGe EACH FILE RECORD WORK 
AREA AND EACH WORKING*STORAGE RECORD THAT IS NOT RENEFINEDse THE 
NON@CONTIGUQUS ITEMS (LEVEL = 77) ARE ASSIGNED TO DATA SEGMENT O¢ 
SPECIAL CONSIDERATION IS GIVEN TO THESE ITEMS IN THAT SEGMENT O IS 
ALWAYS PRESENT AND A PRESENCE CHECK BY THE COBOL INTERPRETER IS NoT 
NECESSARY. 


WHEN THE PROCEDURE DIVISION IS FOUNO» AN ATTEMPT IS MANE TO GATHER 
DATA SEGMENTS ACCORDING TO THE DATA SEGMENT@LIMIT VALUE SPECIFIED 
IN THE OBJECT@CUMPUTER PARAGRAPH. 


IF DATA SEGMENT@LIMIT = 0 THEN ALL DATA IS ASSIGNED TO SEGMENT O ANN 
NO FURTHER ACTION 15S NECESSARY 


IF DATA SEGMENT@ LIMIT IS NOT = 0 THEN EACH FILE RECORD WORK AREA IS 
“ASSIGNED TO A NEW SEGMENT AND. THE WORKING@"STORAGE RECORDS ARE 
GATHERED AS FOLLOWS! © 


le IF A CANDIDATE IS GREATER THAN DATA SEGMENT*LIMIT THEN 
ASSIGN IT TO A NEW SEGMENTs 


2e IF A CANDIDATE WILL FIT WITH THE CANDIDATES GATHERED s0 
FAR CEeGse THE COMBINED SIZE OOES NOT EXCEED DATA 
SEGMENT@LIMIT) THEN ASSIGN IT TO THE CURRENT DATA SEGMENT. 


3e IF A CANDIDATE WILL NOT FIT IN THE CURRENT SEGMENT THEN 
BEGIN GATHERING TO A NEW SEGMENT+ 


THIS METHOD TENDS TO GATHER SMALL CANDIDATES TO A DATA SEGMENT SIZE 
THAT IS CLOSE TO THE DESIRED DATA SEGMENT@LIMIT. 
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DYNAMIC MEMORY. 


DYNAMIC MEMORY CONTAINS SEVERAL TABLES WHICH ARE MANAGED AS FOLLOWS: 


le THE PC.TASLE IS LOADED FROM THE PCFILE INTO THE FIRST PART 
OF DYNeWA AT THE BEGINNING OF DATSYNs 


2 FOLseLISTsHEAD CONTAINS A LINK TO THE FIRST FILE INFO ENTRY 
(FOIeINFO) LINK LISTs THERE IS ONE FDeINFO ENTRY PER 
SELECTCED) FILE, | 


3e THE DATA OICTIONARY TABLE IS BUILT AT THE END OF ODYNewWA 
AND GOES TOWARD THE FO.INFO TABLEs THERE IS ONE ODOTfCT 
ENTRY FOR EACH DATA SEGMENT CANODIDATEs DOICTCO) IS§ 
RESERVED FOR THE LABEL RECORD wORK AREA OF THE USE 
PROCEDURES. 


Ae IF DYN.PTR EVER MEETS DDICTsLIMIT THEN AN ERROR MESSAGE IS 
ISSUED WITH A REQUEST TO RECOMPILE USING MORE MEMORY. 


5s AT THE BEGINNING OF EXPLODE THE FDeINFO LINK LIST AND THE 
DATA OICTIONARY TABLE ARE REPLACED BY AS MANY ONINFO FILE 
ENTRIES AS WILL FITs THE OVERFLOW ENTRIES ARE RETRIEVEO ON 
A RANDOM BASIS FROM THE ONINFO FILE 


PCsTABLE LOADED 
FROM PCFILE ~ 
(93 BITS/ENTRY) 


FOLTsLISTsHEAN s*"28> 7 <uesem ONISTABLE sBASE 
FDeINFGO LINK LIST 1 
(293 BITS/ENTRY) * i 
(25 BITS/FILE=LIMIT) { 
1 DURING EXPLODE: 
{ FOR ONINFO ENTRIES 
1} €96 BITS/ENTRY) . 
AVAILABLE © | i AS MANY AS WILL FIT 
| 
{ 
{ 
{ 
i 


ONIsPTR coecessnnny 


DDICTsLIMIT ss=e2=> ois 
DOICT TABLE 

C47 BITS/ENTRY) 
ODICTsBASE sase2en5 < 


eoem ONI,TABLEsLIMIT 


EXPLODE. 
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INPUT FILESs 


AONFILE? READY TO READ THE PROCEDURE DIVISION. 


OUTPUT FILES« 


ADNFILES TOKEN REFERENCES ARE REPLACED BY A COPY OF THEIR 


ATTRIBUTES. 


GENERAL FUNCTIONSs 


le 
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READ THE ONINFO FILE AND LOAD OYNAMIC MEMORY WITH AS MANY 
ENTRIES AS IT WILL HOLD. 


EXPAND TOKENS TO INCLUDE ALL THE KNOWN ATTRIBUTES FOR THAT 
TOKENs EsGse A DATA*NAME OCUR IS USED TO INDEX THE ONINFO 
TABLE» TO WHICH THE PC ATTRIBUTES ARE ANDED FROM THE 
PCeTABLEs SUBSCRIPT FACTORS AND TABLE BOUND INFORMATION IS 
ISSUED AT THIS TIME. 


EXPAND SPECIAL REGISTER REFERENCES TO LOOK LIKE DATA@NAME 
REFERENCES CTALLYs TODAYS#DATEs SWls» see » SWBe ETCede 


OUTPUT TOKEN INFORMATION ABOUT DECLARED FILE*LIMITS. 
PARSE THE USE SENTENCE OF A USE PROCEDURE s 


PARSE SORT STATEMENTS WITH PARTICULAR ATTENTION TO THE 
WUSINGe eet AND "GIVINGe es” CLAUSES, 
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PROCEDURE DIVISION SYNTAX CHECKING CPROSYN)<« 


INPUT FILESs 


AONFILE? EXPLODED TOKENS INCLUDING A COPY OF THEIR ATTRIBUTESs 


QUTPUT FILES,. 


AODNFILE® CONTAINS TOKENS THAT HAVE BEEN SYNTAX CHECKEDs 
REARRANGED*s AND SIMPLIFIED FOR CODE GENERATION 


GENERAL FUNCTIONSs 


ls PERFORM A DETAILED SYNTAX CHECK OF EACH PROCENURE DIVISION 
CONSTRUCTs ANY ERROR OR WARNING MESSAGES ISSUED ARE MERGED 
WITH PRIOR MESSAGES, 


26 GET OPERANDS AND THEIR SUBSCRIPTS OR INDEXES AND 
AUTOMATICALLY STACK THEM FOR USE BY EACH CALLERs OPTIMIZE 
LITERAL SUBSCRIPTS AND INDEXES WHEN THE OPERAND IS PUT TO 
THE OUTPUT FILE CSEE “SuBSCRIPT AND INDEX OPTIMIZATION). 
THE LOOK@AHEAD FEATURE OF THE GET PROCEDURE CAN BE INVOKED 
BY- SETTING A FLAGse IN THIS MODEs TOKENS ARE PRESENTED TO 
THE CALLER ONE AT A TIME UNTIL THE FLAG IS RESET AND 
NORMAL OPERATION RESUMES WHERF IT LEFT OFF. THIS MODE IS 
ESPECIALLY. USEFUL FOR OPTIMIZINGs EsGse THE ROUNDED» SI7E 
ERROR» AND MULTIPLE RECEIVING FIELD REQUESTS ARE. ENCODED 
AS VARIATIONS WITH THE ARITHMETIC VERSS. | 


3e CHANGE STATEMENTS TO A SIMPLER FORM» EsGe CORRESPONDING 
PAIRS OF A MOVE CORRESPONDING STATEMENT ARE PUT OUT AS 
SERAnaTe MOVE STATEMENTS. 


4e TRANSFORM ARITHMETIC EXPRESSIONS AND BOOLEAN EXPRESSIONS 
- TO THEIR PARENTHESIS FREE POLISH EQUIVALENT BY APPLYING 
THE OPERATOR PRECIDENCE RULESs AN ATTEMPT IS MADE TO 
PROMUCE EQUIVALENT STRINGS FOR ARITHMETIC EXPRESSIONS AND 
THEIR ARITHMETIC STATEMENT COUNTERPARTSs 


Se SUPPLY THE IMPLIED SUBJECT AND RELATIONAL OPERATOR TO 
ABREVIATED CONDITIONSs : : 
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DYNAMIC MEMORYs 


THE OPERAND STACK IS MAINTAINED IN DYNAMIC MEMORYs IF IT CAN NOT RE 
ENTIRELY CONTAINEDs AN ERROR MESSAGE IS ISSUED WITH A REQUEST TO 
RECOMPILE WITH MORE MEMORYs : 
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CODE GENERATOR (CODEGEN)s. 


INPUT FILES« 


AONFILE? CONTAINS THE PROCEDURE DIVISION TOKENS THAT HAVE 


BEEN SIMPLIFIED FOR CODE GENERATION, 


OUTPUT FILES: 


SEGFILE: — CODEGEN TOKENS ARE APPENDED TO THE TOKENS 


PRODUCED BY THE PRIOR PHASESs 


LABELTABLES CONTAINS EXPLICIT LABEL ATTRIBUTES ANDO IMPLICIT 


LABEL ATTRIBUTES CE«Gse BRANCH POINTS OF A 
CONDITION) USED FOR GENERATING THE CORRECT 
BRANCH ADDRESSESs« 


GENERAL FUNCTIONS. 


ls 
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CHECK THE DONTsGENERATE.CODE FLAG WHICH IS SET BY ANY 
PRIOR PHASE THAT DETECTED A SYNTAX ERRORe IF IT HAS BEEN 
SET» COPY THE TOKENS NEEDED TO PREPARE THE ERROR REPORT 
ONTO THE SEGFILE AND BEGIN THE FIXUP PHASEs IF NO ERRORS 
HAVE REEN DETECTEDs GENERATE THE REQUIRED CODEs 


GENFRATE CODE FOR THE EXPONENTIATE INTRINSICs THIS CODE TS 
GENERATED ONLY WHEN NEEDED (FOR CERTAIN SIMPLE CASES THE 
CODE IS EMITTED INSLINE). 

EMIT CODE FOR FILE*LIMIT CHECKINGs 


EMIT CODE TO ANALYZE THE REASON FOR A USE PROCEDURE BEING 


INVOKEDes 
GENERATE CONE FOR THE MONITOR INTRINSICe 


UPDATE THE LABELTABLE FILE FOR EACH SECTION» PARAGRAPHS 


ANDO IMPLICIT BRANCH THAT IS EMITTEDs 
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DYNAMIC MEMORY. 


A GETsTOKEN PROCEDURE AUTOMATICALLY STACKS THE OPERANDS AND THEIR 
SUBSCRIPTS FUR USE RY EACH CALLER» THE OPERAND STACK IS MAINTAINED 
IN) DYNAMIC MEMORY. IF IT CAN NOT BE ENTIRELY MAINTAINEDs AN ERROR 
MESSAGE IS ISSUED WITH A REQUEST TO RECOMPILE WITH MORE MEMORYs 
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FIXUP 


INPUT FILES. 


REPORT? CONTAINS CARD IMAGES NEEDED FOR LISTINGs NOT 


OPENED IF NO LIST SPECIFIED AND THERE ARE NO 
ERRORS. 
SEGFILE3 CONTAINS VARIOUS INFORMATION FROM PRECEDING 


PASSES WHICH IS USED TO BUILD THE CODEFILE AND 
SUPPLY ADDITION OATA FOR THE LISTINGs 


LABELTABLES USED TO FINALIZE BRANCH ADDRESSESs« NOT PRESENT 
IF THERE ARE SYNTAX ERRORSs | 


OUTPUT FILES. 


COOEFILE: CONTAINS OBUECT PROGRAM ACCORDING TO MCP 
SPECIFICATIONS. NOT PRESENT IF THERE ARE SYNTAX 
ERRORS _ 


LINE: USEO FOR LISTING AND COMPILER DEBUGGING OUTPUT. 


GENERAL FUNCTIONS. 


FIXUP HAS 2 PRIMARY JOBS! PRODUCE A CODFFILE AND A LISTINGe NO 
CODEFILE IS PRODUCED IF THERE ARE SYNTAX ERRORSs» FIXUP IS SENSITIVE 
TO $ CARDS. A NEFAULT & CARD IS THE FIRST TOKEN FIXUP SEES CAS PART 
OF THE DATSYN TOKENS IN THE SEGFILE) UNLESS THE USER HAS A $ CARD 
AT THE FRONT OF HIS DECKs THE DEFAULT 3 CARD GIVES "LIST™, 


IF THE LIST OPTION IS CURRENTLY OFF AND THERE IS aN ERROR OR 
WARNING» THE APPROPRIATE SOURCE CARD IS PRINTED, 


EVERYTHING FIXUP DOES IS VERY SPECIALIZED AND DETAILED. IT KNOWS HOw 
THE MCP EXPECTS A CODEFILE TO BE FORMATTED» HOw THE CORNL 
INTERPRETER WANTS MEMORY LAID OUT FOR A COBOL PROGRAM» AND OTHER 
THINGS TOO STRANGE AND WONDEROUS TO REVEAL TO MORTAL MANe 


HOUSEKEEPINGs 
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THE COBOL INTERPRETER PERMITS 6 DIFFERENT CONTAINER SIZES TO RE 
VARTABLE IN LENGTHs COOEGEN DETERMINES 2 OF THESE! SEGB (SPECIFIES 
SIZE FOR THE DATA SEGMENT NUMBER PORTION OF DATA ADDRESSES) aNd 
COPXB CSIZE FOR COPX)s FIXUP DETERMINES 4 OF THESE! 


le BDISPR (SIZE FOR BRANCH ADDRESSES). 

2s  DISPB (SIZE FOR DATA ADDRESS DISPLACEMENT)>s 

36 LENG (SIZE FOR DATA LENGTH). | | 
| 4e COPB CSIZE FOR COP ENTRYessCOPAISEGB+OISPB+LENB+4 Do 
FIXUP MUST ALSO BUILD THE ALTER TABLEs THE DIGIT SIZE OF AN ENTRY = 
(B*BDISPB+3)/4, 


FILL OYNAMIC LABEL TABLE AREAs 


AT THE BEGINNING OF FIXUP THE DYNAMIC AREA AVAILABLE (CIF ANY) IS 
SEQUENTIALLY LOANED WITH AS MANY LABELTABLE ENTRIES AS WILL FIT» 
EACH ENTRY BEING RESOLVED TO ITS BADDR FORMAT (33 BITS) ON THE FLYe 
OVERFLOW ENTRIES ARE RETRIEVED RANDOMLY IN THEIR ORIGINAL FORM FROM 
THE LABELTABLE FILE AND RESOLVED BY EXCEPTIONS 


BUILD DATA DICTIONARY, 


FIXUP USES THE DNDICTTABLE (BUILT BY DATSYN) IN THE SEGFILE TO BUILD 
THE CODEFILE DATA DICTIONARYs DATA SEGMENT O SIZE REFLECTS ONLY THE 
USERS DATAs SINCE THE MCP CMALE CHAUVINIST PIG) EXPECTS DATA 
SEGMENT 0 TO RE A PICTURE OF WHAT WILL BE IN MEMORY» FIXUP MUST 
UPDATE DSEGO TO INCLUDE? | | 

le EDIT TABLE (8 CHARACTERS). 

26 COP TABLE. 


3e SPECIAL REGISTERS (SwWleeSwBs TALLY» DATE» TIME» 
TODAYS*DATEs TODAYS™TIMEs TODAYS@NAME)s 


4e CONSTANT POOL (COATANAME MONITOR SYMBOLSs EDIT MASKSs 
TRANSLATION TABLES» FILE LIMITS). 


5S. TRASH AREA CINTERMEDIATE RESULTS)6 
6% ALTER TABLE CIF ANY): 
7s STACKs. 


DATA SEGMENT PORTIONS OF THE COOEFILE ARE SET TO ALL O BITSs THIS Is 
DONE BECAUSE UPON THE FIRST ACCESS OF A DATA SEGMENTs THE MCP REANS 
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If OFF DISK IF IT HAS BEEN ALLOCATED SPACE IN THE CODEFILEs 


BUILD TRANSLATION TABLES. 


EITHER ASCII*TO@EBCDIC AND/OR ESCDIC@TO=“ASCII TABLE .IS CREATED ONLY 
IF APPROPRIATE TRANSLATION INSTRUCTION IS GENERATEDs THE TABLECS) 
IS LOCATED AS THE LAST PART OF THE CONSTANT POOL. 


PROCESS MERGE TOKENS FROM SEGFILE. 


THE ONLY VALID TOKEN IS TMEMVALUEs THIS IS: FOR INITIALIZING THE 
CONSTANT POOL PORTION OF THE CODEFILE TO MONITOR DATA*NAME SYMBOLS 
AND EDIT MASKS. 


BUILD CODE OICTIONARY. 


Segue Geavansta* oa es wav n w 


THE PSEUDO CODE DICTIONARY CPCDO) PRODUCED BY CODEGEN CONTAINS A 
SUMMARY OF STATIC CODE AND NUMBER OF VARIABLE LENGTH CONTAINERS FOR 
EACH LOGICAL PROGRAM SEGMENTes BY NOw FIXUP HAS CALCULATED THE 
CONTAINER SIZES AND MULTIPLIES THESE BY THE PCD NUMBERS AND ANNS 
THE PCD STATIC CORE TO BUILD THE FINAL CODE OICTIONARY IN THE 
CODEFILE.s 


IN ADDITION "MARKER" RECORDS ARE WRITTEN ON THE SEGFILEs THESE TELL 
THE BEGINNING CODEFILE DISK SEGMENT ADORESS FOR EACH LOGICAL 
PROGRAM SEGMENTs | 


PROCESS DATSYN TOKENS. 


THE REPORT FILE IS USED TO PRODUCE A LISTING CIF APPLICABLE) AND 
TCARDAOR TOKENS ARE FETCHED TO APPLY DATA ADDRESSES TO THE LISTINGs 
TMEMVALUE TOKENS ARE PROCESSED TO IMPLEMENT THE "VALUE IS" CLAUSE. 


PROCESS CODEGEN TOKENS. 


IN ORDER TO ALIGN PRINTED CODE AND CODE ADDRESSES ON THE LISTING» 
CODEGEN TOKENS ARE PROCESSED SERIALLYs THE USER MAY HAVE CONE 
SEGMENTATION MIXED SO THAT PIECES OF A LOGICAL PROGRAM SEGMENT ARE 
SCATTERED THROUGHOUT THE PROGRAM, 


FIXUP EMITS CODE FOR THE CURRENT PROGRAM SEGMENTs IF A NEW SEGMENT 
OCCURS» FIXUP USES THE *MARKER™ RECORDS TO REMEMBER WHERE THE CONE 
FOR A SEGMENT LEFT. OFF ON THE CODEFILEs 
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THE LABELTARLE FILE IS ACCESSED WHENEVER A TBADNR TOKEN IS 
ENCOUNTEREDs THE ROUTINE LABEL«FIXUP TAKES A LABELTABLE OCUR FROM 
THE TOKEN ANO USES IT AS AN INOEX INTO THE LABELTABLE TO FINALIZE 
A BRANCH ADDRESSe 

FILE LIMIT VALUES ARE SET UP BY CODEGEN AS TMEMVALUE TOKENS AND ARE 
INITIALIZED ON THE CODEFILE AT THIS POINT. 


CLEANUP .s 


le PRINT THE CODE DICTIONARY.« 

20 = BUILD THE FILE PARAMETER BLOCKS. 

36 PRINT THE DATA DICTIONARY. 

4s BUILD AND PRINT THE PATH DICTIONARY (DATA MANAGEMENT) 
Ss BUILO AND PRINT THE COP TABLE. 

6« BUILD AND PRINT THE RUN STRUCTURES 

7s FINALIZE THE PROGRAM PARAMETER BLOCKs 

Bs BUILD AND PRINT THE ALTER TABLE« 

9e PRINT THE PROGRAM PARAMETER BLOCKe 


10. PRINT THE SUMMARY INFORMATIONe 
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GLOSSARY OF ALLFILE ANO DNFILE TOKENS 


OQO=#TINTGR INTEGER EG: 123 , 

OO#TEDC ENVsOIV«eBLOCK CODE CDONFILE ONLY) 

OL2ZTREAL REAL NUMBER EG! 1263 

OleTpuc DATA OIVISION BLOCK CODE CONFILE ONLY) 

O22TNNLIT NON*NUMERIC LIT EG "ABC" 

O2aTPOC PROCsOIVeBLOCK CODE (CONFILE ONLY) 

03=TXON EXPLICIT. DATA NAME EG! 01 DATA#NAMEs 

O3aTFILEREC EG: READ FILEREC | 

O4aTXSECN EXPLICIT SECTION NAME EGt XSECN SECTION. 

OS=*TXPAR EXPLICIT PARAGRAPH NAME EG! XPARs 

O6BTFIXUP FIXUP THE INDICATED OCUR ACCORDING TO THE COnE. 
O7=TWORD wORD EG: MOVE 1 TO WORD. 

O8=TWMON MONITOR wORD OPERAND | 

O92TCSPL CORRESPONDING LEFT EG? MOVE CORR TCSPL TO TCSPR 
102 TCSPR CORRESPONDING RIGHT. EG: MOVE CORR TCSPL TO TCSPR 
LisTOQUAL WORD QUALIFIER EG: MOVE 1 TO WORD OF QUAL 

L2aTLABL LABEL EG: GO TO LABLs« 

13*TALTER ALTERCED) OPND EG: ALTER TALTER TO PROCEED Tn P26 
L43TPERF PERFORM OPERAND EG! PERFORM PERF, . 

ISsTPTHRU PERFORM THRU OPERAND EG3s PERFORM P1 THRU PTHRUSs 
16=TLMON MONITOR LABEL GPERAND | 

T7eTLQUAL LABEL QUALIFIER €G% GU TO Pi OF LQUAL 

18=TRESwWD RESERVED WORD EG? GO» MOVE» ADDs 

I9=TEOB END@“OF*BLOCK MARKER@*FOR UNBLOCKING 

20=sTEUF END=OF=FILE MARKER=FOR UNBLOCKING 

212TDOT PERIOD 

222=TPC PICTURE 

232TDOLAR DOLLAR CARD 

24=eTERROR ERROR OR WARNING MESSAGE 

25=TCARD CARD MARKER I,&. SOURCE CARD ENCOUNTERED 
26STPROCESSEN | PROCESSED DICTIONARY ENTRIES CONFILE ONLY) 
272TRDFNS REDEFINES/RENAMES OPERAND EGt 02 X REDEFINES RNFNS 
282TLABELREC OPERAND OF "LABEL RECORDS ARE cLAUSE 
292 TCSPS CORRESPONDING SENTINFEL*O0ELIMITS A CSPL*#CSPR PAIR 
302 TSTATESTOP STATEMENT DELIMITER 3 | 

3JL=2TINDEX *tINDEXED BY" OPERAND EG! O02 DN INDEXED BY TINNEX 
322TSUBS SUBSCRIPT FOR PREVIOUS OPERAND.». CREATED IN ExpPLODE | 
332TBO00STOP BOOLEAN PRIMARY DELIMITEResCREATED IN REARRANGE | 
34"TARITHOP ARITHMETIC OPERATOR EG? AaODOs OIV3 | 
352TINOSECT FOR INITIALIZING ALTERED GO TO PARS OF INOoSECTIONS 
36aTMINIMUM ESTABLISHES MINIMUM SCALE AND LEFT PART FOR 


INTERMEDIATE RESULTS OF AN ARITHMETIC EXPRESSION 


OO=szTCOPX 
O12TLIT 
O2=TCOP 
O3aTDADDR 
O4sTOP 
O52TBADOR 
O62TBITS 
O7=TSUBORINX 
OgaTstgLInx 
O9#TFACTOR 
102 TBOUND 
Li=sTALTERINDEX 
12=TOPNDX 
T3aTLITFIX 
i4=TSTOP 

152 

16s 
T7=TMEMVALUE 
L8=xTCARDADR 
lgosTEUB 
20“TEOF 

232 TOOLLAR 
242TERROR 
252TCARD 
262TCOmMMLITFIX 
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GLOSSARY OF SEGFILE TOKENS 


COP TARLE ‘INDEXeeeIF O THEN INLINE TCOP FolLons 
LITERAL OF 4 OR 8 BIT UNITS . : 

INLINE COP 

ADDRESS EVENTUALLY RELATIVE TO pSEGO 

S*LANGUAGE OPERATOR | 

LABELsTABLE OCUR CHANGED INTO BRANCH ADR BY FIxXUP 
BIT STRING TO INSERT INTO CODEssesGENERAL USE 

INLINE COP FOR SUBSCRIPTS OR INDEXES 

LINKS SEcTIOoNS BELONGING TG THE SAME cOpE SEGMENT 
FACTOR FOR SUBSCRIPTED INLINE COPS 

BOUND FOR SUBSCRIPTED INLINE COPS 

POINTER RELATIVE TQ ALTER TABLE BASE 

SETS LIT FLAG TO 9,6.CcOP TABLE INDEX 

MAKE A LIT RELATIVE TO A CERTAIN BASECFOR I/0 USE) 
SIGNALS CHANGE IN CODE SEGMENTS 

UNUSED 

UNUSED 

FOR FIXUPsessINITIALIZES DATA SEGMENT VALUE IN CODEF 
DATA AOR TO PRINTOUT WITH CARD CCREATED IN NATSYN) 
END@OF*RBLOCK MARKER@=FOR UNBLOCKING 

END@OF*FILE MaRKER@=FOR UNBLOCKING 

NOLLAR CARD © 

ERROR OR WARNING MESSAGE 

CARD MARKER IsEe SOURCE CARD ENCOUNTERED 

MAKE A LIT RELATIVE TO A CERTAIN BASECFOR Isn uSE) | 
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MISCELLANEOUS 


NOTE? 

URS = FIELD FOR ANY USE YOU WISH. 

we = TYPE NOT PRESENT IN THIS PASS. 
se a TYPE PERMANENTLY DROPPED IN PREVIOUS PASSe 
USAGE 

OOO=RESERVED 

0O1=C MP 

O102DISPLAY 

OllamMIXED 

L1OO0=ASCII 

LOLZINDEX : 

LLOZUNDEFINEN 

Lil=CmMP=3 


DATA NAME FLAGS (CONFLAGS) (10) 


REFERENCE LAREL SORT GROUP WOT A COND FILLER MONITORED FILE 

COUNT RECORD FILE FLAG CORR NAME NaMe 
QOPERAND NAME OPND 

(2) (1) (1) C1) C1) (1) Ci) C1) (1) 


Sasi ava Seeaasaet SG a VFaeSt anne Ge BS OG OQ Seng tS TOE HG HS HR SEKHERABEEHBATE RT EB OEKEESTHHSETBeE aA aBya en & 
REFERENCE COUNTCTO MINIMIZE NOs OF COP ENTRIES)! 

OsNQ REFERENCES © : 

LsONE REFERENCE 

2:TWO OR MORE REFERENCES 


LABEL FLAGS (6) 


THIS SECT MONITORED OBJECT OF AT PERFORMED EXPLICIT 49FLAG 


CONTAINS . LEAST ONE TERMINAL GO TQ 

ALTERED © ALTER PARAGRAPH PAR 

GO TO PAR 

C1)* C1) (1) Ci). C1) C1)* 


* ON IN SECTION & ALL ITS PARAGRAPHS 
SOFLAGSLZPRIORITY GTR 49 
EXPLICIT Go TO PAR FLAG IS SET IN QUALIFICATION RESOLUTION (IIT) 


URS IN LITERAL TOKENS (4) 
FORMAT ALL SIGNFD BINARY 
€1) C1) ¢1) 02) 


FORMAT?O=881Ts» 124RIT BINARYHisLIT IS 24B8IT BINARY 


36 


BASIC cOP ($3) 
ADDRESS LENGTH (LOGICAL SIZE) SuB FLAG DATA TYPE ASCII FLAG 
C31) (18) C1) (2) (1) 


DATA TYPE 
OOZ=UNSIGNEN 4 BIT 
OlsUNSIGNEND & BIT 
LOSSIGNED 4 BIT 
LieSIGNED 8 BIT 


COP FACTORS (680) 
*#SUBS FACTOR] FACTOR2 FACTOR3 SUBSCRIPT BOUNDS 
(2) (18) (18) (18) (24) 


Fee INFO (80) 

UNUSED FILE FILE FILE FILE. FPB FILE MAX 
LAREL HARDWARE ACCESS LIMITS FLAG NUMBER REC LEN 
TYPE 

(37) (4) (7) (4) C1) (9) (18) 


See aE Gah a Bae Seg SF Seta gas SF ae agesae st tsa nseti ae ee@ aunts aasuesQ an wDeaoaaae ae 
a Py 


PCINFO C74)_ 
MASK ADR MAPSZ (CORE $2) SCALE SIGN CLASS 82 ce 
(24) (18) CF) - €3) (3) C1) 4) 
SIGN CLASS 

OzU OtNUMERIC INTEGER 

iss L=eNUMERTC REAL 

2nJ 2aN— 

32K 3=AN 

“4a€ 4=zAB 

5S=AE 


MON INFO (30) 
MONITOR SYMBUL ADRs MON SYM LGTH 
€24) (6) . 


37 


ALLFILE! OUTPUT FROM INITIAL PARSING (1) 


OOaTINTGR _ C294¢CLENGTH#8)) 
TYPE COLUMN SCALE 8YTE LENGTH ERBCDIC LITERAL 
(6) ¢7) (8) (8) (255 MAX) 
OL=TREAL SEE OO2TINTGR 
O2=TNNLIT SEE OO2TINTGR 
O3=TXDN (13) 
TYPE COLUMN 
6) (7) 
O4=TXSECN ae % SECTIONS ARE MARKED AS SUCH ON DNFILE BUT 
| % AS TXPAR ON ALLFILE 
O52 TXPAR SEE O3=TXDN 
O6aTFIxuP | hk 
O72TWORD SEE 03"TXDN 
OB8=TWMON SEE O3=TXDN 
O9=TCSPL SEE 03=2TXDN 
10a TCSPR SEE O3=*TXDN 
LisTQuAL t 
128TLABL SEE 03=2TXDN 
132TALTER SEE O3=TXON 
L4=TPERF SEE O3=TXDN 
LSeTPTHRU SEE O3=TXDN 
16=TLMON | SEE O3=2TXDN 
L7=TLOQUAL poe 
18=TRESWO | (29) 
TYPE COLUMN KEY CIN HEX) 
(6) ¢7) (16) 
19=TEOR (6) 
TYPE 
(6) 
20=TEOF SEE 19=TEOS 
2i=TooT SEE 03=TXDN 
22aTPC SEE 03=TXDN 
232TDOLAR (36) 


TYPE FLAGS 
(6) (30) 


242TERROR 


TYPE COLUMN 
(6) (7) 


25aTCARD 
262TPROCESSEN 
2?aTROFNS 
2B82aTLABELREC 
29aTCSPS 

303 TSTATESTOP 
312TINDEX 
322TSUBS 
33aTBU0STOP 
342TARITHOP 
35#TINDOSECT 


WARN 
C1) 


(24) 
ERROR# 
(10) 


ee 


at 
SEE 
SEE 
ek 
ne 
ae 
xe 
xe 
* 
w* 


19=TEOB 


O3=TXDN 
O32TXON 


368 
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ONFILE: OUTPUT FROM INITIAL PARSING (IT) 


OO=TEDC (6) 

TYPE 

(6) 
O12TDDC SEE OO=TEDC 
O2=TPOC SEE OOSTEDC 
O3"2TXON (56+ (LENGTH*8)) 


TYPE LEVEL ONFLAGS DNOCUR STACKHEAD# SYMBOL LENGTH SYMBOLS 
(6) C16) (10) (12) (7) (5) (30 MAX) 


NOTE ¢ LEVFL=s2 CHARACTERS 


O4=TXSECN CSO*CLENGTH*8)) 
TYPE 49 SEG¢ CURRENT LABEL STACKHEAD# SYMBOL LENGTH SYMBOLS 
FLAG SECTION OCUR 
OCUR 
(6) (1) (7) (1?) (12) (7) (5) (30 MAX) 


SRR SBSH a VW a Sa earn Oaeagesge a @ HA VBGatBaea Boggs VF aC geSesaaes Be euataa es *neweaeaaGn®s ea @ a 


SEG# IS SET RY THIS PASSse¢SYMBOL SCRAMBLE DONE BY THIS PASS 


OS=TXPAR SEE O42TXSECN 
O6aTFIXKUP (23) 
TYPE oCUR FIXUP CODE 
(6) (12) (5) 
MARK SUCH THINGS AS: 
Ae NOT CORRESPONDING OPERANDs 
Bs GO TO PARe 


0O7=TWORD ~—6 CL B+ CLENGTH#8) 2 
TYPE STACKHEAD# SYMBOL LENGTH SYMBOLS 
(6) C7) (5) (30 MAX) 
O82TWMON SEE O7=TWORD 
O98TCSPL SEE O7=2=TWORD 
1OaTCSPR SEE O7TWORD 
LIisTOQUAL SEE Q7=TwORD 
L2aTLABL SEE O7=TWORD 
13"TALTER SEE O7=2TWORD 
L4eaTPERF SEE O7sTWORD 
IS2TPTHRU SEE O7=TWORD 
16"TLMON SEE O7sTWORD 
L72TLQUAL SEE O72#TwWORD 


182TRESWO a 
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192TEOBR - (6) 


TYPE 

C6) | 
20aTEOF SEE 19=TEOB 
212TOOT ak 
22=7PC C30+CLENGTH*8)) 


TyPE PC OCUR STACKHEAD# SYMROL LENGTH SYMBOLS 

(6) C12) (7) . (5) C31 MAX) 

A BLANK IS INCLUDED AT THE END OF THE PICTURE TO PROVIDE A CONVENIENT © 
DELIMITER FOR PICTURE PROCESSOR AND TO KEEP PICTURES UNIQUE FROM LABEL - 
NAMES IN DICTIONARY PROCESSING PASS» 


23=TDULAR (36) 

TYPE FLAGS 

(6) (30) 
24=TERROR we 
25=TCARD we 
Z26=TPROCESSED ae 
27=TROFNS SEE O7=2TWORD 
Z2AsTLABELREC. | SEE O7=TWwORD 
29=TCSPS SEE OO2TEDC 
302TSTATESTOP ** 
312 TINDEX ue 
322TSUBS wk 
33=TBOOSTOP we 
S42 TARITHOP ** 


352TINDSECT all 
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DNFILE’ OUTPUT FROM DICTIONARY PROCESSING (ITI) 


ed heed ee ee ee ee ee ee ee Se Oe ee ee se Oe Oe se oe ee ee 


OOzTEDC (6) 
TYPE | 
(6) | 

O12THOC SEE OOsTEDC 

O2=TPOC SEE OO0=TEDC 

O3=2TXON | -€44) 


TYPE LEVEL DNFLAGS SAMENAME OCCUR 
(6) (16) (10) (12) 

FILLER: FILLER FLAG=1 
WORKING@STORAGE SECTION? ENTRY=0 


O4=TXSECN (38) 
TYPE GOFLAG SEG# SECTION OCUR SAMENAME OCUR 
(6) ¢4D (7) 12) (12) 

OS=TXPAR SEE O4=TXSECN | 

O6=TFIXUP (23) 


TYPE OCUR FIXUP CODE 
(6) (12) ¢5) 


O7=TWORD (18) 

TYPE UNRESOLVED OCGUR 

(6) (12) 
O82THMON SEE O72#TWORD 
O9=TCSPL SEE O7=TWORD 
1O0=TCSPR SEE O7=TWORD 
LI=TQUAL SEE O7sTWORD 
~L2sTLABL SEE O7=TWORD 
T3=TALTER SEE O7=TWORD 
IG=zTPERF SEE O72TWORD 
Y5eTPTHRU SEE O7sTWORD 
16*#TLMON SEE O72TWORD 
L7STLQUAL SEE O72TWORD 
18=TRESWD “* 
19=TEOB SEE O02TEDC 
20sTEOF SEE O0OsTEDC 


2i2TOOT a 


4? 


22"TPC (23+CLENGTH#B)) 
TYPE OCUR LENGTH SYMBOLS 
(6) (12) ¢5) C31 MAX) 
PICTURES HAVE BEEN LOOKED UP AND NOW OCUR = UNIQUE PICTUREs SYMBOLS 
ARE RETAINED FOR CONVENIENCE FOR PICTURE PROCESSING PASSs 


232 TDOLAR (36) 
TYPE FLAGS 
(6) €30) 
Z242TERROR ae 
253TCARD * % 
Z62=TPROCESSED (26) 


TYPE #BITS 

(6) €20) 

AT BEGINNING OF EACH BUFFER = USED TO INDICATE HOW MUCH DATA was 
PREVIGUSLY PROCESSED IN THIS ITERATIVE PASS CWHICH ALLOWS THE 
DICTIONARY TO OVERFLOW) * THIS TYPE IS OROPPED IN THE NEXT PASS: 


27sTROFNS SEE O7=TWORD 
28=sTLABELREC SEE O7eTWORD. 
292TCSPS SEE OG=TEDC 
303TSTATESTOP | ee 
3127TINDEX as 

322TSuUBS ah 
33=TBOOSTOP xt 
342TARITHOP we 


352TINOSECT | baal 
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DNFILE’S OUTPUT FROM QUALIFICATION RESOLUTION CIIT) 


OO=TEDC DROPPED 
O12TODC (6) 
TYPE 
(6) 
O2=TPOC DROPPED 
O3=TXDN (56) 


TYPE LEVEL ODNFLAGS SAMENAME OCCUR SCOPE 

(6) (16) (10) (12) (12) 

DONFLAGS REFsCNTs HAS REEN UPDATED 
OSFTXSECN C31) 


SOBA AB SKE BHSSMRHESRBHESHMEBHLA SEK ABER SS 


TYPE LABEL FLAGS SEG# SAMENAME OCUR 


(6) (6) (7) 12) 
-O5=TXPAR «SEE O4=TSECN 
O62TFIXUP DROPPED 
O07 =TWORD (28) 


TYPE RESOLVED OCUR ONFLAGS 
€6) C42) (10) : 


DONFLAGS NEEDED FOR THINGS LIKE SPECIAL PROCESSING OF CONDITION 


O8=TWMON SEE O7=TWORD 
O9*TCSPL SEE O7*TWORD 
1OeTCSPR . SEE O7=TWORD 
LisTOQUAL DROPPED 
122TLABL (43) 


SOROS HS EEE STA SMHARASHSAKAHSHSHSHSRBERSTSHAASEHHRSEE HEHEHE 


TYPE LAREL FLAGS SEG# SECTION OCUR RESOLVED OCUR 


6) (6) (7) (12) (12) 
L3=TALTER (51) | 


NAMES 


TYPE LABEL FLAGS SEG# SECTION OCUR RESOLVED OCUR OBJECT TIME 
| ALTER INNEX 


(6) (6) (7) (12) (12) (8)* 


* FOR QUALSRESs USE ONLY 


44 


14aTPERF (51) 7 
TYPE LAREL FLAGS SEG# SECTION OCUR RESOLVED OCUR TERM PAR # 
(6) (6). (7) C12) . (12) (8) 

TERM PAR#® CANNOT BE THE OCUR BECAUSE OF 8 BIT LIMIT 

IS2TPTHRU SEE 14=*TPERF 

16sTLMON SEE 12=TLABL 

L7aTLQUAL DROPPED 

TasTRESwWD at 

192TEOB SEE O1=TODC 

2O0aTEOF SEE O1=TOOC 

21l2ToOOT . ee 

22eTPC C23+CLENGTH#8)) 

TYPE OCUR LENGTH! SYMBOLS 
(6) (12) (5) | €31 MAX) 
BRQeKHk oases SFaeS uses usanannsoanae 

232TDOLAR OROPPED 

242 TERROR (17) 


TYPE WARN ERRORS, 
(6) C1) (10) 


25eTCARD ak 
267 TPROCESSED DROPPED 
272TROFNS (52) 
TYPE RESOLVED OCUR ONFLAGS SAMENAME OCCUR SCOPE 
66) (12) (10) (12) C12) 
2B82TLABELREC . SEE 0O7=TWORD . 
29BTCSPS SEE 012=TDDC 
30=TSTATESTOP ae 
31aTINDEX ae 
322TSUBS ek 
33*TBOOSTOP kt 
348TARITHOP rt 


35aTINDSECT *t 
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PCINFOt OUTPUT FROM MERGE CIV) 


(91) ; 

MASK MAPSZ LENGTH | SCALE SIGN CLASS BZ CP ERROR 
ADDR (CORE S7) (LOGICAL $2) FLAG 
(24) €18) (18) CF) (1) (3) (1) €1) (1) 


MAPSZ=CORE SIZE.sLOGICAL SIZE= # UNITS TO ACCEPT FROM SOURCE ss 

IF ERRORFLAG=1 THEN MASK ADRe = ERROR# AND SCALE = CARD CUOLUMN.. 
MASK IS IN CONSTANT POOLesLENGTH LATER BECOMES PART OF BASIC ChPs. 
OTHER INFO LATER BECOMES PCINFO PGRTION OF ELEMENTARY TOKENS 


SIGN 

O2US UNSIGNED ¢4 OR 8 BIT) 

L2SS HIGH ORDER DIGIT ¢€4 OR 8 BIT) 

2sJS HIGH ORDER DIGIT OF LAST UNIT (4 OR 8 BIT) 
32KS HIGH ORDER CHAR (8 BIT) 

Q=ES #92, CReDB (8 BIT) 


CLASS 

OtINTEGER €4 OR 8 RIT) PC 999 

AsREAL C4 OR 8 BIT) PC 999V99 CNUMERTC SCALED) 
2a (6 BIT) | PC $8888 OR 999+¢99+ 

3aAN (& BIT) PC XX9A 

42Ab (8 BIT) PC AAA 


SAE cS BIT) PC XXBAA 
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ALLONFILE’S OUTPUT FROM MERGE CIV) 


OOZTINTGR © C334CLENGTH#B)) 
TYPE COLUMN URS SCALE BYTE LENGTH EBCDIC LITERAL 
(6) (7) (4) (8) (8) (255 MAX) 
OLsTREAL SEE OO=TINTGR 
O22 TNNLIT SEE OO=TINTGR 
O32TXON (63) 
TYPE COLUMN LEVEL ONFLAGS SAMENAME QCUR SCOPE 
(6) (7) (16) (10) (12) (12) 


O4=TXSECN (42) 
TYPE COLUMN URS LABEL FLAGS SEG# SAMENAME OCUR 
(6) (7) C4) (6) (7) (12) 


IF MONITOR FLAG=1 THEN FOLLOWS A NON@NUMERTC LITERAL TOKENs 


OSSTXPAR SEE O4=TXSECN 
O6=TFIXUP “- 
O7=@TWORD (69) 

SRF BKS RABE KRKSRBE HBF GSH FSSA K aA OOK a a aeVPuse Dee SF seVae SEH es Gaeta west BSaegesanuesa Fe 
TYPE COLUMN URS DNOCUR DNFLAGS MONITOR SYMBOL ADRs MON SYM LGTH 
(6)  ¢7) C4) ¢€12) C10) (24) (6) 

OB=TWMON | OROPPED | 
O9=TCSPL SEE 07=TWORD 
10=TCSPR SEE O7=TWORD 
LisTQuAL ; ae 
122TLABL | (54) 
TYPE COLUMN URS LABEL FLAGS SEG# SECT OCUR LABEL OCUR 
(6) ¢7) (4) (6) (7) (12) (12) 


URS! 
DUMMY TLABL CREATED FOR UNUSED 
Ae GO TOs 
(1) (3) 


L3I=#TALTER —  €62) 


TYPE COLUMN URS LABEL FLAGS SEG# SECT OCUR LABEL OCUR ALTER INE 
(6) 7) (4) (6) 7) (12) (12) (a) 
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LaelPERF (62) 


TYPE COLUMN URS LABEL FLAGS SEG# SECT OCUR LABEL OCUR TERM PARS 


(6) (7) C4) (6) (7) (12) 129 (8) 
LS=2TPTHRU SEE 14=TPERF 
16=TLMON | DROPPED 
L72TLQUAL ae 
18=TRESWD (29) 
TYPE COLUMN KEY CIN HEX) a 
(46) (7) (16) 
19=TEOB (6) 
TYPE 
(6) 
20sTEUF SEE 19=TEOB 
21=TOOT | (13) 


TYPE COLUMN 


(6) (7) 
Z222TPC (25) 


TYPE COLUMN PC OCUR 


(6) (7) (12) 
23=TDOLAR (36) 


TYPE FLAGS 
(6) (30) 


242TERROR (24) 


- TYPE COLUMN WARN ERROR# 


(6) ¢7) C1) €10) 
25=TCARD SEE 19=TEOB 
262 TPROCESSEN -° 
272 TROFNS (63) 


TYPE COLUMN URS RESOLVED OCUR DNFLAGS SNAM OCCUR SCOPE 


(6) (7) C4) ¢€12) ~~. €10) (12) (12) 
ZOaTLABELREC SEE O72TWORD 
29 TCSPS DROPPED 
3OsSTSTATESTOP ae 
31sTINOEX et 
322TSUBS ak 


33=TBOOSTOP | ee 


4a 


34e8TARITHOP . ee 
35z2TINDSECT THIS TOKEN PUT ON SEGFILE AT SPECIFIC LOCATION 
AWAITING PROSYN PROCESSINGe so sSEE SEGFILE LAYOUT 
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DNINFO!? CINTERNAL FILE) DATA DIVISION SYNTAX CV) 


(96) 
LEVEL JUST BWZ OCCURS COPX PC  LGTH ADRs USAGE ¥#SUBS 
VALUE FLG . 
(7) (1) 1) (18) (12) (1) (18) €33) ©3) (2) 


IF PCeoFLG THEN LGTH=PCINFO INDEX. 
IF LEVEL=50 THEN LGTH=MOM OCUR, 
IF #SUBS NEG 0 THEN SUBSCRIPTED & #S5SUBS2#192s90R 3e 


ASCII FLAG 


O=EBCOIC 
LzaSCII 


IF ENTRY=0 THEN ENTRY=WORKING STORAGE ELSE ENTRY#FOD3 
(96) 


LEV SD FD UN 01 FILE FILE FILE FILE FPB Max 
USED OCUR LABEL HARD ACCESS LIMITS NUM REC 
TYPE 
C7) €21) €1)2 #€32) €12) €4) (7) C4) €1) (9) ¢€18) 
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ALLDNFILE: QUuTPuT FROM EXPLODE CVI) 


OO=TINTGR | (33¢CLENGTH#8)) 
TYPE COLUMN URS SCALE BYTE LENGTH EBCDIC LITERAL 
(6) (7) (4) (8) (B) (255 MAX) 
OLeTREAL SEE OO=TINTGR 
O2=TNNLIT SEE OO=TINTGR 
O3=2TFILEREC (281) 
TYPE COL URS COPx RASIC FPR PC ON JUST BWZ2 MON USAGE 
COP INFO INFO FLAGS INFO 
(6) 7) C64) €12) €53) ¢€80) (74) (10) CL) €1) €30) 3) 


O4aTXSECN (42) 
TYPE COLUMN URS LABEL FLAGS SEG# SAMENAME OCUR 
(6) (7) C4) (6)  €7) (12) 
~OS=TXPAR SEE O4=TXSECN 
O6=TFIXKUP as 
O7=TWURD (281) | 
SRS SOHK STH SF FB AO FTHASSOSTSOBZEHSTSHKRAKSTHRASSHESTH MAAS SAIAB BH SE ASHER SOSSSTHBERTHBE RB SERB ESBHRSEREEZHBGE ERAS | 
TYPE Cot URS CoPx BASIC COP PC. DON JUST BWZ MON USAGE 
| COP FACTS INFOQ FLAGS INFO 
(6) (7) ¢€4) =¢€12) = €583) (80) (¢€74) ¢10) (1) C1) ¢€30) ¢€3) 
O8=TWMON “= 
O9=TCSPL SEE O7=TWORD 
1O=TCSPR | SEE O7=TWORD - 
Ll=sTQUAL © os 
A22TLABL ¢54) 
TYPE COLUMN URS LABEL FLAGS SEG# SECTION LABEL 
. . — OCUR OCUR 
C6) (7) (4) (6) (7) (12) (12) 


BSS KR Fa Ta SBF an HA SnwAw sa MB awmtuwaae* 2eatana BQ Oana aan ee o2eeauua 


L3=TALTER (62) 
TYPE COLUMN URS LABEL FLAGS SEG# SECTION LABEL ALTER TABLE 
OCUR OCUR INDEX 
(6) (7) C4) (6) (7) C12) C12) (8) 


LQasTPERF (62) 
TYPE COLUMN URS LABEL FLAGS SEG# SECTION LABEL TERM PAR® 
OCUR OCUR 
(6) (7) (4) (6) (7) (12) (12) (8) 


Seen ae anaaKsa@®*as S€Gaeanee sO SSS SRCHC SOs eeSe sae SGans a Ms a ena nseaeesaca won eeqca2aanoae @ ee 


1SaTPTHRU SEE 14=TPERF 
16=2TLMON ae 
L7#TLQUAL “= 
1B8=zTRESWD | (29) 

TYPE COLUMN KEY CIN HEX) 

(6) (7) (16) 
19zTEOB 

TYPE 

(6) 
20sTEQF SEE 19=sTE0B - 
212TOUT (13) 

TYPE COLUMN 

(6) (7) 
22=TPC DROPPED 
23=TDOLAR (36) 

TYPE FLAGS 

(6) (30) 
2Gz=zTERROR (24) 

TYPE COLUMN WARN ERRUR# 
| (6) (7) (1) €10) 
252 TCARD SEE 19=TEOB 
26=TPROCESSEO =e. 
27=TROFNS =e 
28aTLABELREC | =a 
29=2TCSPS - a 
3O02TSTATESTOP “* 
312TINDEX SEE 072TWORD 
322TSUB ne 
33=TBOOSTOP . we 
342TARITHOP ak 


352TINOSECT “* 


CIMPLICIT LEVEL 50) 
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ALLONFILEs OUTPUT FROM PROCEDURE DIVISION SYNTAX CHECK (VII) 


OO2TINTGR ; C264(CLENGTH*SIGNED)*(4 OR 8))) 
TYPE URS SCALE LENGTH LITERAL 
(6) (4) (8) (8) (255 MAX) 
O1l2TREAL SEE OO0O=TINTGR 
O22TNNLIT SEE OOsTINTGR 
(O3STFILEREC . (271) 
TYPE URS COPX BASIC FPB PCINFO ONFLAGS JUST BW2 MON 
Cop INFO INFO 
(6) (4) ¢€12) (¢53) (80) (74) (10) C1) C1) €30) 
O4=TXSECN (23) 


TYPE URS LABEL FLAGS SEG# 

(6) ¢€4) (6) (7) 

LABEL GCUR NEED NOT RE IN TOKEN SINCE IT CAN BE COMPUTED FROM 

A SEQUENTIAL EXPLICIT LABEL COUNTERs THE ALTER TABLE INDEX CAN ALSO 
BE COMPUTED TO GIVE TO THE COOE GENERATOR» 


OS=TXPAR SEE Coat eeeeN 
O6=TFIXKUP “ 
O7=TWORD C271) © 
TYPE URS COPX BASIC COP PCINFO ONFLAGS JUST 8WZ2 MON 
COP FACTORS INFO 
(6) C4) €12) 4¢53) (80) (74) (10) 1) ¢1) (30) 


NOTE: FOR DATEs TIMEs TODAYS#DATE» ETC» A TWORD IS CREATED CINTERNAL 
TO PROSYN) wITH SUBFH0s #SUBS NEQ O» AND FACTOR] TELLS WHICH: 
L=DATEs P=TIMEs 3STODAYS*DATE» 4=TODAYS*NAME 
URS 
INDEXEDeON COP RELATIVE INDICATOR INDEX 
C1) (2) (1) 

INDEXEDsON STHTS IS AN INDEXED DATANAME CON INDEXED BYses) 
CGP RELATIVE INDICATOR! 

SET INTERNAL TO CODE/GENERATOR 

O=USE SEG# & DISP IN BASIC COP 

120ISP IS RELATIVE TO REUSEABLE TRASH BASE OISP 
INDEX = 77 C USAGE INDEX. 


O82TWMON “< 
O9sTCSPL oa 
102TCSPR ae 


LisTOQUAL ia 
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A2=TLABL C47) 


TYPE URS LABEL FLAGS SEG# SECTION OCUR LABEL OCUR 
(6) C4) ¢6) (7) (12) (12) 


SEARCH ROUTINE IN PROSYN USES LOW ORDER BIT OF URS TO TELL CONDITION 


ROUTINE IN CODEGEN TO USE NEXT SENTENCE OCUR CNSeOCUR)» NSsOCUR IS SET . 


BY SEARCH ROUTINE IN CODEGENe 


L3"TALTER (55) 
TYPE URS LaBEL FLAGS SEG# SECTION OCUR LABEL OCUR ALTER INDEX 
(6) (4) (6) (7) (12) (12) (8) 
L4sTPERF (55) 
TYPE URS LABEL FLAGS SEG# SECTION OCUR LABEL OCUR TERM PaAR# 
(6) (4) (6) (7) (12) (12) (8) 
LS5sTPTHRU OROPPED CALL PERFORMS= 14=TPERF) 
162TLMON , “o 
L7=TLQUAL -- 
L8aTRESWOD (30) 


TYPE URS KEY 
(6)  €8) (616) 

IF KEYSALPHABETIC OR NUMERIC THEN 

URS 

NUT CLASS UNUSED 

(1) (7) 

IF KEYERELATIONAL OP CLSSeLEQ»NEQsEQLsGEQsGTR) THEN 

URS 7 

UNUSED IMPLIED SUBJECT 

(7) (1) 


19=TEOB (6) 
TYPE 
(6) 
2O02TEOF SEE 192TEOB 
212TOOT DROPPED CCHANGED TO RESERVED) 
22aTPC -- 
23sTOULAR €36) 
TYPE FLAGS 
(6) (30) 


24eTERROR C24) 
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TYPE COLUMN WARN ERRORS 


(6) (7) C13 (10) 
252TCARD SEE 192TEO8 
262TPROCESSEN oe 
272TROFNS oe 
282TLABELREC == 
29eTCSPS DROPPED 
30aTSTATESTOP SEE 19=2TEOB 


GENERAL USE I§ TO nELIMIT A STATEMENT FOR CODEGEN BECAUSE THE eCnDEGEN 
CONTROL ROUTINE ALWAYS DOES A GET FOR A RESERVED WORDe EXAMPLE OF USE 
OF TSTATESTOP! THE MOVE VERB MAY HAVE MULTIPLE RECEIVING FIELOS AND 
MUST KEEP SCANNING IN PROSYN UNTIL IT GETS A NON*PRECEIVING FIELW TOKEN © 
¢ PUTTING Out THE TSTATESTOP MAKES SCANNING IN CODEGEN EASIERs ALSO 
USED IN PROSYN BY SORTs ACCEPT/DISPLAYs DUMP» SET» STOP RUN» AND 
DATA MANAGEMENT, 


31i2TINDEX SEE O7*TWORD-  & IMPLICIT LEVEL 50 
322TSUB (75) 


TYPE URS COPX BASIC COP 
(6) C4) €12) (€5§3) 


338TBOOSTOP SEE 19=TEOB 
342TARITHOP (19) | | 
TYPE URS OPERATOR OPERATOR ROUND SIZE MULTIPLE RECEIVING 
CLASS ss ERROR FIELDS 
(6) €4) G4) (2) (1) C1) C1) 
IF DIV3 THEN? 
URS 
REMAINDER ROUNDED REMAINDER UNUSED 
(1) 61) 2) 
IF STORE THEN 
URS 
UNUSED EMIT*¢BOFC1) FOR ** OR / IN COMPUTE 
(3) (1) 
OPERATOR! | 


OFADDsSI=SUBsS2a2MULs 3SDIVOGBEXP es S=M0D 2 6=STOREs7@STOREMODs 
SBaDELETE*TOP@“OF@=STACKs 9ECHANGE“SIGN 
OPERATOR CLASS! 
EG ANDLDOsADN1sADND2sADD3 
SUBOsSUB1,SUB2sSUB3 
DIVisDIV2s,0IV3e 
MULiseMUL? 


35"TINDSECT 633) 


TYPE TXPAR ALTER INDEX TLABL OCUR TLABL SEG 


(6) (8) | ie 12) (7) 
362TMINIMUM | 


TYPE URS MINIMUM SCALE MINIMUM LEFT PART 

(6> Cad ¢8) (8) | 
USED BY COMPUTE TO ESTABLISH MINIMUM SCALE & LEFT PART FOR 
INTERMEDIATE RESULTS 


5§ 
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LABELTABLE!t OUTPUT FROM CODEGEN CVIIIDe 


(96 BIT ENTRYsee15 PER DISK SEGMENT) 
TYPE=3 CLINK) 

TYPE UNUSED LABEL+«OCUR 

(2) C77) Cf75 


TYPEHOeisZ2 COSPLAIN ADR»e1L=AND ADRs 2=THEN ADR) 

TYPE UNUSED SFG# CODE. #BADDRS #LENSS #DISPS #DADODRS 

(2) (13) (7) (22) ¢13) (13) (13) (13) 
NOTES #01SPS IS COUNT OF DISPS THAT ALSO HAVE A SEG AS PART OF THE 
ADDRESS» #0DADDRS HAVE DISP BUT NO SEGe 


57 


SEGFILE: FROM ALL PRIOR PHASES 


NOTE! MERGEs DATSYN» AND CODEGEN EACH. HAVE A DISCRETE AREA FOR THEIR 
TOKENS» 18=TCARDADR IS EMITTED ONLY BY DATSYNe MOST OF THESE TOKENS 
WERE DESIGNED FOR USE BY CODEGENs | 2 


bees ee ene eeeoseeeseeeeevaeeeeesenseesase Geen te teases heoseseesebeseeseoeoassbeoeaesnede 
SEGFHItLE H E—E AOE R COISK SEGMENT O«e602 OISK SEGMENTS) 
SEE COMPILER LISTING FOR CONTENTS 


tr eeevueevnseeeeneeneeod 


aa 
OISK SEGMENTS) 


ar re a re es 2 2 


PSEUDOA CODE OIC TIOQNARY Cil 

(144 BIT ENTRYete10 PER DISK SEGMENT) 

USED TO COLLECT cODE TOGETHER AS USER SPECIFIED 
LINK LINK UNUSED CODE #BADORS #LENBS #0ISPS #DADORS 
HEAD TAIL 
€20) €20) €30) (22) ¢€143) (13) (13) (13) 


eee seeonsesecaeGeseveboaesse sees ee ee sees ese ses Geese see ea seee ees sesevoeeeeoceseenbsaeosete ses 


TINDS ECT ENTRY TABLE Ci DISK SEGMENT) 
C10 BIT ENTRYeee100 ENTRIES) 
NUMBER OF ENTRIES FOR THIS CODE SEGMENT 
€10) 


$oeteeveseaseeeF eevee es ees teeseeeseseseatF eveveveseseesaesesese esse beset avntieesoes 
TINOS ECT TOKEN S €100 DISK SEGMENTS) 
C27 BIT ENTRYeee53 PER DISK SEGMENT) 
TXPAR ALTER INDEX TLABL OCUR TLABL SEG@ 
(8) (12) (7) 
NOTE THAT THIS SETUP LIMITS EACH USER INDEPENDENT CODE SEGMENT TO 
53 ALTERABLE GOTO PARAGRAPHS 
CCC CORO EEO EHH FORE HR HO HHE ORK HO KRHEKR SO HEHR HFC HEHE Hse oO HeEHG HEHEHE H HEH HOHE HEHEHE HHO HHH HEH A HEHE HR OBS 
PATH nrcecwTtTtIanAR Y CDATA MANAGEMENT) 
Pesoeeeseevoeeseeeoseoevnseevnesessteseeaneeeentesnseesetesesseseeerseneseheaneeseesannes 
MERGE TOK EN S 
SEE DOCUMENTATION ON TOKENS 
®Povesbsaeeseeazesee seve e tes oeseseeeeseaneseeokeseaeseteeneeseeneveeseeestneeeseeensehtnness 
DATS YN TOKEN S 
SEE DOCUMENTATION ON TOKENS 
CEH ROHR HEHRHEHOHERHHHRHAHHEH HEHEHE HHH HHHKEH EHR OHHH K HEREC HEH HR HES EEE RH DHO. 
DNOTCTTA BLE 
(47 BIT ENTRYee+e30 PER DISK SEGMENT) . 
SEG DISP LENGTH ALLOCATEsOISKsONsCODEFILE. 
C7) +%¢€21) ¢€18) C1). 
SEGaDATA DICTIONARY INDEX 
LENGTH=8YTE LENGTH 
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INITIALIZE! L=WORKING STORAGE» FILE LABELS? ETCs 
OfOTHER CFD 01 RECORDS» ETC.) 

LAST ONDICTTABLE ENTRY IS TERMINATOR SET TO ALL O BITS 
TREC CRECCE ECL CL CRATE LOCC CE CEC RULER E CC CELE CELUCCRE CCE TO RULTCCLTrT eee : 
COP TABLE | | | 

(55 BIT ENTRYee+26 PER DISK SEGMENT) 

BASIC COP C(TYPE#0) 

TYPE SEG ODISP LENGTH SURF OTYPE ASCII 
C2) (7) (24) (18) (1) (2) (1) 

NOTELIN FINAL COP TABLE? | 

IF 1 SUB THEN 1 EXTRA COP TABLE ENTRYaee 

If SUBF=1 THEN FOLLOWED BY 

SUBSCRIPT ENTRY (CTYPE=#21) 

IF 2 OR 3 SUBS THEN 2 ExTRA cop TABLE ENTRIES, 

TYPE #SURBS UNUSED BOUND FACT1i UNUSED 
(2) (2) (1) (24) (24) (2) 
AND IF #SURS>0 THEN FOLLOWED RY 
SUBSCRIPT ENTRY #2 (TYPE=2) | 

TYPE UNUSED FACT2 FACT3 UNUSED 
(2) (3) (24) (24) (2) 


Sesto seesesecveseseseesesebseeeseoeeseseeeedteetaseset Pane sesevnese sss eseestivnsetseeseseeanavategeonesn 
F P B €2 DISK SEGMENTS) 
ONE ENTRY PER FILE DECLARED IN PROGRAM 
FPB CAS MCP EXPECTS IT) OTHER FILE INFO 
(1 SEG) - (1 SEG) 


SRBCCC ORO RR OKRA eee eRe oR HEH OHH ROCHE HR RHE CACHE REO CARH HO OER HEFCE DER HCHEHRO EHO OH AaB ROE 
ALTER TABLE 
€19 BIT ENTRYeee75 PER DISK SEGMENT) 
TXPAR SEG TLABL OCUR. 
(7) (12) 


VEFVVECPEEESTEECeL ere eee eee ere eer ee errr rer err err reer rer errr rere ree ee 
COOEGEN- TOKEN S 
SEE BELOW 


0O=TCOPX 29) 
TYPE COPX SUBFLAG #SUBS SURBEDsDN SEG# 
(6) 12) ¢1) (2) (1) (7) 
OL=TLIT CL64CCLENGTH+SIGN)*(4 OR 8))) 
TYPE LTYPE LGTH LSYMB 
(6) -€2) (8) (€255 MAX) 
LTYPE 


Os4 BIT UNSIGNED 
1=8 BIT 
224 BIT SIGNED 
J=RESERVED 
O2=TCUP CINLINE) (64) 
TYPE BASIC COP #SUBS SUBBED.DN COP RELATIVE INDICATOR 
(6) (53) (2) C1) (2) 
SUBKED«¢DN3 
IF SuBF AND SUBBED+sDN THEN SUBSCRIPTED DATANAME 
IF SUBF AND NOT SUBBED*ON THEN INDEXED DATANAME 


O3=*TOADDOR (32) 
TYPE TOADOR RELATIVE INDICATOR DADOR 
(6) C2) (24) 
TOADDR RELATIVE INDICATOR? 
OO=RESERVED 
O1sDaTA SEG O RELATIVE 
LOzRELATIVE TO TRASH 


O4=TOP (18) 
TYPE OP CODE 
°€6) (12) 

O52TBADOR (39) 


TYPE LABELsTABLE OCUR 
(6) (33) 


06=TBITS Ci4+LENGTH) 


TYPE BIT LENGTH BIT STRING 
(6) (8) €255 MAX) 


39 
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O7=2TSUBORINX (61) 
TYPE BASIC COP COP.RELs INDICATOR 
C6) (53) — (2) 

OB=TSEGLINK (34) 


SSE eae ane nee Caen anwaeneeoeoes Ba eanasa eu ton ws 


TYPE DISK ADR OF NEXT SECTICN SEG# 
TO BE PLACED IN THIS 
PHYSICAL CODE SEG 


(6) (20) (&) 
O9=TFACTOR (24) 

TyPE FACTOR 

(6) (18) 
102TBOUND (30) 

TYPE TABLE ROUND 

C6) (24) 
LiZTALTERINDEX | (14) 


TYPE ALTER INDEX 

C6) (8) 

NOTE® SIZE GF CONTAINER. FOR ALTER TABLE IS NOT KNOWNs THIS IS A 
POINTER RELATIVE TO ALTER TABLE BASECUSED BY GOPAR OPERATOR). 


122 TOPNDX SEE OO=TCOPX 
L3=TLITFIX (284CLENGTH*(4 OR 8))) 
TYPE LTYPE LENGTH BITsDISP TDADDR RELATIVE INDICATOR LITERAL 
(6) 2) (8) (10) (2) (160 MAX) 
NOTE LENGTH DOES NOT INCLUDE RBITeDISP OR TOADDR RELATIVE INOICATOR« 
BIT+DISP IS BIT LOCATION IN THE LIT TO BE FIXED UPs THE LENGTH OF 
THE AREA TQ BE FIXED UP IS ASSUMED TO BE 24s 
NOTE? FOR I/0 TYPE VERBS THE ADR IS CHANGED IN FIXUP TO BE BASE REGs 
RELATIVE. IEt INCLUDE CUP TABLE & EDIT MASKa 


14sTSTOpP SEE 19=TEOB 
NOTE? TERMINATES A PORTION OF CODE WHEN CODEGEN ENCOUNTERS A TXSECN 
WITH SEG# NEC SEG# OF LAST TXSECNe 
15 kk 
16 . * 
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17a TMEMVALUE — CPO*CLENGTH#(4.0R B))) | 
TYPE ASCII LTYPE LIT ALL RIGHT ONOICT OIGIT DEST LSYMB 
FLAG LENGTH FLAG JUST TABLE OISP SIZE 
INDEX 
(6) C1) (1) (8) CW: %15 (10) (24) (18) (160 MAX 


NOTE: MAPS "VALUE" CLAUSE ONTO CODEFILE SG INITIAL VALUES ARE LOANED 
AT RUN TIME. 
DNOICTTABLE INDEX OF O INDICATES DSEGO 


18=TCARDADR (51) 
TYPE DNDICTTABLE INDEX DIGIT pISP cOoPxX 
(6) (9) (24) (12) 
NOTE: TO GIVE AN ADDRESS ASSOCIATED WITH A CARD TO BE PRINTED ON THE 
REPORT. 
192 TEOB (6) 
TYPE 
(6) 
20=TEOF SEE 19=TEOB 
23=TDULAR ¢€36) 
TYPE FLAGS 
(6) (30) 
242TERROR (24) 
TYPE COLUMN WARN ERROR# 
(6) (7) (1) (10) 
252TCARD SEE 19=TEO 
262=TCUMMLITFIX C284C(LENGTH*(4 OR 8))) 


TYPE LTYPF LENGTH FIXeCTNUM TDADDR RELATIVE INDICATOR LITERAL 

(6) (2) (8) (10) (2) C160 MAX) 
FIELDS ARE ANALOGOUS TO THOSE FOR TLITFIX EXCEPT FOR FIXseCTNUM. THE 
LITERAL IS ASSUMED TO BE A COMMUNICATE MESSAGE WHICH IN WHICH CTeol | 
THRU CTe10 MAY NEED TO.BE FIXED UPe EACH BIT OF FIXsCTNUM CORRESPONDS | 
TO A CT+ WHAN THE I[*TH BIT OF FIX*CTNUM IS ONs FIXUP WILL FIX THE 
CTel CTHE I*TH CT). 


OISK ADR 
eeecee tee 
0 
i 
2 
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CODEFILE! QUTPUT FROM FIXUP (IX). 


CONTENTS 

aeoetaveue 

PROGRAM PARAMETER BLOCK CPPB) 

RUN STRUCTURE 

DATA DICTIONARY 

DATA (THE VARIABLE DSEGO*e¢DISKsADR POINTS TO HERE) 
CODE DICTIONARY 

CODE 

FILE PARAMETER BLOCK(S) (FPR) 

PATH DICTIONARY COATA MANAGEMENT) | 


COBOL S*=MEMORY ALLOCATIONs 
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A TYPICAL COHUL PROGRAM LAYOUT IN MEMORY IS AS FOLLOWS! 


FIRST ENTRY ¢(COPX=#1) => 


DATA SEG 0 


STACK BASE 
STACK LIMIT 


BASE Beane amy 


sae tans enwanweay 


aS@sQuSaeawenua 


EDIT TABLE (8 CHRS) 


COP TABLE 


SPECIAL REGISTERS 
DATA*NAME MONITOR 
SYMBOLS 


EDIT MASKS 


FILE*LIMITS 
NON*OVERLAYABLE 
USER DATA AREA» 
COMMUNICATE AREAs 
CONSTANT POOL 
TRANSLATION TABLES 
TRASH AREA FOR 
TEMPORARY RESULTS 


Qa SDBMu av Gane een Banas aw 


ALTER TABLE 


STACK 


meee eeVa su Ben eunaat ss we 


OVERLAYABLE 
USER DATA AREA 


REINSTATE INFO AND 
RUN STRUCTURE 


DATA OICTIONARY 


REKKEKREKRRATKEKREK KKK KEK 


S«CODE 


WERKE KREKEHKKRKKEHKEKE 


<“-"=" BASE REGISTER 


STATIC MEMORY 


ea a ae Enea oe ee 


Bx seas dae aes pe a ee, 


A 
8 


| 
DYNAMIC MEMORY 
j 


{ 
<wsre LIMIT REGISTER 


Sw1 

é 

é 

6 
Sw 
TALLY 
JULIAN@*DATE 
TIME 
TODAYS*0aTeE 
TUDAYS@*NAME 
DM"“STATUS 


THE SPECIAL REGISTERS 


PC 


ARE ALLOCATED AS FOLLOWS! 


9 CMP 


9 CMP 

9€5) CMP 

9¢5) CMP NOTE? YYDDD 
9¢7) CMP NOTE? HHMMSST 
9(€6) CMP NOTE& MMDDYY 
xC9) 

9¢6) CMP 
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MONITOR STATEMENT 


THE MONITOR STATEMENT MUST PRECEDE “IDENTIFICATION DIVISION s SYNTAX 
= MONITOR <FILE*NAME> [DEPENDING] (<DATA*®NAME LIST> & <LABEL 
LIST>). 


THE <LABEL LIST> MAY CONSIST OF ONLY ‘ALLY WHICH IMPLIES EVERY 
PROGRAM LABEL.» 


SYMBOLS FOR MONITORED DATA*NAMES ARE PUT IN DATA SEGMENT ZERO« THIS 
IS BECAUSE IT IS LIKELY THAT A DATA#NAME WILL BE A RECEIVING FIELD 
MORE THAN ONCE AND THIS METHOD SAVES CARRYING THE SYMBOLS AS A 
LITERAL IN THE CODE SEGMENTSa« 


SYMBOLS FOR MONITORED PROGRAM LABELS ARE SET UP AS LITERALS IN THE 
CODE WHERE THE LABEL EXPLICITLY OCCURS. - 


A DATSYN ROUTINE (BUILD-COPS) IS RESPONSISLE FOR ASSIGNING A MONITOR 
BUFFER OF 132 CHARACTERS IN DATA SEGMENT ZEROs IT ALSO BUILDS A 
MONITOR COP AS COP # 1 UNLESS "NOCUP" ITS SPECIFIEDs 


AT CODE SEGMENT ZERO» DISPLACEMENT ZERO» A ROUTINE IS EMITTED WHICH 
CONSISTS OF A MVN» COMMUNICATE*s ANO XITs THIS ACHIEVES A WRITE ON 
THE USER SPECIFIED LINE PRINTER FROM THE MONITOR BUFFERe THE 
ROUTINE IS ENTERED AFTER THE MONITOR BUFFER HAS BEEN SET UP AT 
VARIOUS POINTS IN THE CRUG EM MOTIVATION FOR THE ROUTINE IS TO 
SAVE CODE SPACE. 


MONITOR er 


EG: MONITGR PRINT CMASTERs XxX & PARI De 


MERGE INPUT MERGE OUTPUT 
MONITOR CTRESWD) MONITOR CTRESWD) 
PRINT CTwORD) PRINT CTwWORD) 
MASTER CTwMOQN ) ry 
XXX | CTwMON) ‘ 
PARI CTLMON) 8 
PAR1 CTXPAR) WHERE THE LABEL APPEARS 


"PARI" CTNNLIT) 
es 
MASTER (C¢TWORD) WITH MONITOR LENGTH AND 
MONITOR SYMBOL ADDRESS 
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DATSYN OUTPUT 


MONITOR CTRESWO) 
PRINT CTFILEREC) wITH MONITOR BUFFER ADDRESS 
PERIOON c¢TnoOT) 


EGt MONITOR DEPENDING PRINT CAs Bs C 8 ALLDs 


MERGE INPUT 


MONITOR CTRESWD) 
DEPEND CTRESWN) 
PRINT CTwORD) 


A CTwMON) 
B (TwMON) 
C CTwMON 3 


NO INDICATION OF “ALL” BECAUSE TNNLITS APPEAR AFTER EACH EXPLICIT 
LABEL. 
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SUBSCRIPT AND INDEX OPTIMIZATION. 


Se GenuGQ ean nantat®ae* cuantroenvase @aderta 


RULES FOR SUASCRIPTS. 


le 


as 


ds 


LITERAL SUASCRIPTS CAN NOT BE SIGNEDs THEREFOREs THEY CAN 
NOT GENERATE TOO LOW AN ADDRESS. 


THE BOUND IS THE MAXIMUM DIGIT DISPLACEMENT OF THE LAST 
VALID ENTRY CWHICH IS ANY LENGTH AND MAY BE IN DIGITS OR 
CHARACTERS). 


THE INTERPRETER CHECKS EACH SUBSCRIPT LEQ Oe IF SOs THEN 
ERROR « AFTER ALL GATHERING AND MULTIPLYING OF SUBSCRIPTS 
Is NONEs THIS IS CHECKED AGAINST BOUNDS AND IF > BOUNDS 
THEN ERROR, 


IF ALL SUBSCRIPTS FOR A DATANAME ARE LITERALSs» PROSYN 
CHECKS FOR BOUNDS ERROR. OTHERWISEs EVEN THOUGH A LITERAL 
MAY BE LARGER THAN THE CORRESPONDING OCCURS VALUE IN THE 
DATA DIVISION DECLARATION» WE DONT CHECK (CTHE VALUE OF 
ANOTHER SUBSCRIPT MAY OFFSET THIS VALUE AND BRING THE 
TOTAL WITHIN BOUNDS )< 


RULES FOR INDEXESs 


le 


2a 


DATA*NAMECINDEX * LITERAL) $ THE DATA*NAME ADDRESS fS 
OPTIMIZED AND THE LITERAL DROPPED. 


DATA*NAMECINDEX © LITERAL) ¢ IF THE NEGATIVE LITERAL PLUS 
THE MATASNAME ADDRESS ARE GTR Os whE OPTIMIZEs OTHERWISE, 
WE DONT KNGW IF THE INDEX wILL MAKE THE FINAL AODRESS 
WITHIN BOUNDSeesSQ WE ODONT GPTIMIZE AND WE LET THE 
INTERPRETER CATCH ANY ERRORSs 


~~ GLOBAL+DOLLAR FORMAT 


B 


Ourtwn oO 


— 


~ 28 
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RESERVED WORD FOR $ CARD 


LIST 
NOQUBLE 
SUPPRESS 
SPEC 
CONTROL 
CONE 
ANSI 


PARSE 
OIctT 
DNQUAL 
LQUAL 
MOIGE 
DATSYN 
EXPLODE 
PROSYN 
CONEGEN 
FIXUP 
DEBUG 


ERRMESS 
NOCOP 
REFERENCE 


‘TIme 


EXAMINE 
UNDEFINED 
RESERVED 


1=HOUBLF»O=SINGLE CDEFAULT) 


CVSe DEFAULT 683500 COBOL WHICH 
ASSOCIATES "ELSE" wITH SIZE ERROR 
CLAUSE AND NORMAL 1/0 AT END AND 
INVALID KEY) 

CMONITOR) 

CMONITOR) 

(MONITOR) 

(MONITOR) 

(MONITOR) 

CMONITOR) 

(MONITOR) 


(MONT TOR) 


CMONITOR) 


(MONITOR) 


CNG DEBUG YIELDS NO cODE FOR CNROL 
MONITOR OR DUMPeseeDERUG IS DEFAULT) 
(GIVES LISTING OF. ALL COBOL ERRORS) 


CPRODUCES MONITOR CONE FOR VARIABLES 
IN COS0L MONITOR LIST AND REFERENCED 
AS OTHER THAN RECEIVING FIELDeae 

EGs IF A=Bs) 


CONLY IF S*OP PRESENT IN INTERPRETER) 


To 


IIs 


IIT. 


IVe 
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USE OF DYNAMIC 


PARSE 
Ae RESERVED WORDS 
1s MONITOR OATA DIVISION © 14936 BITS: 
26 PROCEDURE DIVISION = 10944 BITSs 
Be COPY REPLACING A BY Boeese 
le A REQUIRES 14¢C(BeLENGTH OF A BITS).6 
2s. B REQUIRES? 
Ae B IS wOoRD 14+#(B8*eLENGTH OF B BITS). 
Be B IS QUALIFIED WORD. 
14+¢(8*xLENGTH B)+ 
14+C8xLENGTH OF EACH QUALIFIER) + 
22 FOR EACH IN/OF« 
C+ B IS A LITERAL 
2e+(BeLENGTH UF Bde 
3, LINKS REQUIRE 24 BITS PER REPLACING ENTRY CIsE. EACH A BY B)e 
Ce MNEMONIC NAMES 
244C8*eLENGTH OF MNEMONIC SYMBOL) FOR EACH 
#16 BITS FOR AN END OF LIST 
DATA NAME QUALIFICATION 
EACH EXPLICIT DATA NAME REQUIRES 34 BITS CMAXIMUM OF 5000 ENTRIES)s 
BUT OVERALL MAX OF 65K BITS NOW = 1928, 
LABEL QUALIFICATION 
EACH EXPLICIT PARAGRAPH/SECTION NAME REQUIRES 37 BITS MAXs OF 4000 
ENTRIES) = 1783: 
MAXIMUM OF 5O ALTERED GO TO PARAGRAPHS. 
MERGE 
Ae CONDITION NAMES EXPANSIONe 
EACH 88 VALUE SPECIFIED REQUIRES 33 BITS IN ADDITION TO THE 
LENGTH OF THE VALUE CHARACTER STRING ITSELFe 
ADD 53 BITS OVERHEAD. 
Be MONITOR FUNCTION 
EACH DATA=NAME MONITORED REQUIRES 42 BITSe 
EACH LABEL MONITOREG REQUIRES 18 BITS IN ADDITION TO THE 
CHARACTER STRING OF THE LABEL ITSELFs 
DATSYN 
Ae PICTURES: | 
EACH UNIQUE PICTURE REQUIRES 93 BITSs 
Be FO'Ss 
EACH FO REQUIRES 293 BITS. 
Ce DATA SEGMENTATIONs 
FACH GROUP OF DECLARATIONS CFILE RECORD AREAS» 77'Ss 01'S) 
WHICH ARE CANDIDATES FOR A DATA SEGMENT REQUIRES 47 BITS FOR 
TEMPORARY PSEUDO DATA OICTIONARYs 
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1ST 3 PASSES == PROCEDURE DETAILS 


GENERAL NESCRIPTION OF INITIAL PARSING 3 
OVERALL THE PASS IN BROKEN INTO TwO PARTS 
ie PARSING OF MONITOR THRU DATA DIVISIONs 
26 PARSING UF THE PROCEDURE DIVISION. 
INVOLVEO IN DOING THE PARSE ARE PROCEDURES FOR 
-fe MERGING SOURCE LANGUAGE INPUTS CINCLUDING LIBRARY COPY) 
26 SCANNING AND ISOLATING SYmBOLS CRESERVEDs DATA NAMES» LABELS ETC) 
3e WRITING OUTPUT FILES CALLFILEsONFILE»s REPORTsLIBRARY*NEW SNURCE) 
4e LOOKING UP RESERVED WORDS 
S+ COPYING SUBSCRIPT LISTS 
6¢ REPLACING ITEMS IN COPY 
7« BASIC SYNTAX CHECKING FOR 
As UVERALL 3 ; 
1. THAT ALL DIVISINS ARE PRESENT AND IN PROPER ORDER 
26 FIRST ITEM IS A RESERVED WORD CEXCLUDING $ CARDS) 
Bs MONITOR 3 
1a HAS A FILE NAME : 
26 LEFT AND RIGHT PARENS PRESENT 
36 STMT TERMINATED BY A PERIOD 
Ce ID OMIVISION ¢ 
EXCEPT FOR PGM"IO0 THE COMPILER FINDS THE NEXT 
FIXED WORD IN COLUMNS 8"11 
ALSO SUPPLIES DATE*COMPILED 
De ENVIRONMENT DIVISION 2 
le OBYECT*COMPUTER 
As VERIFIES AND SAVES MEMORY SIZE 
Be VERIFIES AND SAVES CODE AND DATA SEGMENT 
2s SPECIAL“NAMES 3 
A* SAVES CURRENCY SYMBOL 
Bs SETS DECIMAL*PT COMMA 
Ce BUILDS A LIST OF MNEMONIC NAMES 
34 FILE=CONTROL? 
JusT CUPIES 
4s I*U"CONTROL 2 
COPIES IT 
Ese DATA DIVISION 8 
1. ISOLATES FILE SECTION “ITS FD SD ANDO RECORDS FROM 
W*STORAGE SECTION 
26 FN» SD AND W*STOR GO TO ON FILE WITH LEVEL "00" 
AND EXCEPT FOR W@S THE FD FLAG IS SET TRUE 
FILE SECTION 
te EACH ENTRY. MUST START WITH "FO" OR *SD" 
26 A FILENAME MUST BE PRESENT 
3s EVERYTHING FROM FO TO A PERIOO IS COPIED 
Ase EXCEPT DATA AND LABEL RECORDS 
DATA REC CLAUSE DROPPED 
LABEL RECORD = TLABELREC 
46 FOR THE RECORD DESCRIPTIONS 3 
EACH MUST START WITH AN INTEGER LEVEL “ERROR IF NOT» 
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ERROR IF LEVEL IS "00's 
FILLER OR TWORD MUST FOLLOW LEVEL “ERROR IF NOT» 
ERROR IF A FIXED NAME FOUND BEFORE A PERTIOO IS FOUND» 


WORKING"STORAGE 


) 


AME AS FOR FILE RECORDS 


Fe PROCEDURE DIVISION 


le 
Aé 


GENERA 
1s 
ge 


3% 
4, 
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IF DECLARATIVES: 

ERROR IF NO PERIOD FOLLOWING "DECLARATIVES"s 
ERROR IF SECTION NAME MISSINGs 

ERROR IF NO END DECLARATIVES» 

ERROR IF NO USE STMT» 

IF END DECL FOUND BUT NOT "DECL* THEN ERRODRs 
END DECL FOLLOWED By PERIOD, 

IF “END” IN COL 8811 = CONSIDERED “END DECL"s 
GENERALS 


ERROR IF FIRST ITEM NOT A PARAGRAPH OR SECTION NAME 

GOR DECLARATIVESs 
ERROR IF NO PARAGs FOLLOWING SECTION,» 

LAST INPUT MUST BE TERMINATED BY A PERIOD» 

"exIT" MUST BE FOLLOWED BY A PERIOD» 

PRIORITY GTR 99 “ERROR? 

MISSING PERIOO AFTER "SECTION" AND PARAGRAPH» 

FOR THOSE VERBS REFERENCING LABELS “ERROR IF 

LABEL NOT TWORD OR TINTEGER> 

"FROM" OR "TOM MISSING ON SUBTRACTs ADDs MOVEs ALTER 
FILE NAME MISSING FROM READs SELECT 
iL PROCFOURE DIVISION PROCESSING INVOLVES 
RECOGNIZE AND TYPING EXPLICIT SECTIONS AND PARAGs 
RECOGNIZE THOSE VERBS THAT HAVE LABEL REFERENCES ANO 
MARKING THE LABELS 

SUPPLYING A SEGMENT NUMBER TO QUTPUT TOKENSCTXSECNsTXPAR) 
FOR THOSE VERBS WHERE LABELS ARE REQUIRED = VERIFY THAT 
A LABEL IS PRESENT AND IS AN INTEGER OR WORD 

IF DECLARATIVES IS END DECLAR» PRESENT AND VICE"*VERSE 
RECOGNIZING "CORRESPONDING" ANO MARKING ITS OPERANDS 


PROCEDURE DOLLARS 


Le 
26 
3a 
4s 
5S. 


SCANS A $*CARD & RETURNS DIAGNOSTICS 

LOOKS UP CONTROL WORDS (DOLL «WORDS ARRAY) 

SETS GLOBALsDNLLAR BOOLEANS ACCORDINGLY. 

OUTPUTS TO REPORT FILE (TO PROVIDE FOR ERROR PRINTING & "CONTROL" ) 
BUMPS CARDeMARKERSCT 


ROUTINE FEEDS 

COLLATES INPUT FROM CARDS» TAPE/DISK & LIBRARY 
WRITES NEW TAPE/OISK IF REQUESTED 

PERFORMS SEQUENCE CHECK IF REQUESTED CDEFAULT=ON) 
REPORTS EXPLICIT LABELS CCLABLF ) 

PURGES BLANKS BEYOND COL 12 OF CONTINUATION CARDS 
WRITES REPORT FILE 

MAINTAINS CARD@MARKER COUNT 

WRITES NEW LIBRARY IF REQUESTED 


1s 
24 
36 
Go 
50 
66 
76 
Be 
Ga 


VOTOS: 


TAPE/DISK RECORDS IF REQUESTED 


7? 


106 RESEQUENCES OUTPUT IF REQUESTED 


PROCEDURE DERLANK3 
le SKIPS BLANK COLUMNS OF THE CARD ImMAGE 


PROCEDURE GET+*wORD VARYINGS 
ls ISOLATES A TOKEN WHICH CONFORMS TO'"WORD" SPELLING RULES 


PROCEDURE GET*NUMBER VARYING3 
fe ISSOLATES NUMBERS OR HYPHEN*NUMBERS OR WORDS 
2¢ PRIOR TO INITIAL ENTRY SCLAS=NUMBERSC 


PROCEDURE GET*NNLIT VARYINGS 
, le ISOLATES STRINGS THAT START WITH A QUOTE 
2s INCLUDFS FINAL QUOTE WITH THE STRING AND RETURN NNLIToC 
3e¢ IF END*sOFeCARD ENCOUNTERED RETURNS QUOTEsC 


PROCEDURE GETeUNDIGITsLIT VARYING3 
1, ISSOLATES AN UNDIGIT LITERAL 


PROCEQURE GETsNEXTs TOKENS 
le ISSOLATES A NEW TOKEN ON THE CARD IMMAGE AND SAVES THE 
SYMBOL IN ISYMBOL IF NECESSARY 
2s IF SCLAS IS OTHER THAN NEW*TOKENsC THEN ISOLATES. THE 
CONTINUED TOKEN AND CONCATONATES IT WITH ITSYMBOL 
WHEN NECESSARY 
36 REPORTS THE SCAN CLASS. (SCLAS) OF THE TOKEN 


PROCEDURE SCAN3 
te GETS A TOKEN FROM THE CARD IMMAGE 
2s SAVES THE CHARACTER VALUECNCV) FOR ANYONE INTERESTED 
3, DERBLANKS THE CARD ImMAGE FOLLOWING THE TOKEN 
4s LOOKS FOR A CONTINUATION CARD("=" IN COLUMN 7) 


PROCEDURE NOTsFOUNDS 
de VERIFIES THAT THE SYMBOL LENGTH LEQ 30 AND DOESNT END IN "@" 
26 CHECK FOR REPLACING CANDIDATES 
35 CHECKS FOR APPEARENCE IN COLUMNS 8°11 


PROCEDURE GETsREAL «LIT 
1s COMBINES THE INTEGER AND FRACTION PARTS OF A REAL 
“LITERAL 
2e ACCOUNTS FOR DECIMAL=POINT ITS COMMA DECLARATION 
36 ALLOWS FOR MULTIPLE DECIMAL POINTS 
4s ASSUMES THAT TLGTH® LENGTH OF THE INTEGER PART 
-ANO THAT THE FRACTIONAL PART IS READY TO BE SCANNED 


PROCEDURE SCANNERS 
le COMBINES TOKENS FROM. SCAN INTO LARGER CONSTRUCTS 
2e¢ LOOKS UP TWORD IN RESERVED wORD LIST AND SKIPS NOISE 
WORDS*#NOTE SENTENCES*# AND NOTE PARAGRAPHS 
3¢ NETECTS THE DECIMAL POINT OF A REAL NUMBER 
4e DETECT ADJACENT QUOTES IN A NNLIT 
5a DETECTS weet AS A SPECIAL CASE 
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6¢ TRANSLATES UNDIGITS a®F INTO THEIR HEX EQUIVALENTS 


PROCEDURE SCTRL3 
be CALL ON RPLGET IF r COPYeeeREPLACING IS IN PROGRESS 
26 IF DOTFLG wAS SET ON A PRIOR CALL THEN A PERIOD IS 
— SUPPLIED THIS CALL 
3e¢ CALLS SCANNER FOR NEXT TOKEN 
4e CHECK FOR LIBRARY END*OF™FILE 


PROCEDURE MAKALL «RETURN VARYINGS 
WRITE TOKEN AND CAUSE A RETURN IN CALLING PROCEDURE 


PROCEDURE TIME.TOsQUIT VARYINGS 
DETERMINES END OF SUBSCRIPT LIST AND RETURNS 


PROCEDURE MKSURS3 
WRITES SUBSCRIPTS COMBINING ANY SIGNS WITH THE FOLLOWING 
INDEXES ON RELATIVE INDEXING 


PROCEDURE SEARCHsMNEMONICSCADDIT)VARYINGS 
SEARCHES MNEMONIC NAME PORTION OF DYNsWA@IF ADDING IT pas TO THE 
LIST@ADDING BEGINS AT END OF COPY LIST 


ROUTINE MAKLI8B3 

HANDLES CHANGING TO CREATING LIBRARY FILES AND 

BACK AGAIN« 

THREE CASES HANDLED 

le JUST STARTING NEW LIB 

2¢ FINISHING LIB . 

3e FINISHING PREVIOUS LIB AND STARTING ANOTHER BY HAVING 
LIB NAME ON PREVIOUS LIB S TERMINATING "LY CARD 
TeEa LE. Lei 


é 
4 
ti "Lisa" 


PROCEOURE MAKLIBsSCAN VARYING3 
TO CAUSE GETTING OF LIBRARY FILE NAME 


PROCEDURE COPYSCANsNOTsPERIOD VARYING | 
SPEIAL CALL ON SCAN BY COPY IS TO PREVENT THE DEBLANKING 
AND CALL OW FEED ON THE BREAK CHARACTER 
THIS ALLOWS COPYING TQ START ON THE IMMEDIATE NEXT CARD 


PROCEDURE CHECK sCOPY«LISTCADDIT)3 
SEARCHES THE DYNewA FOR A MATCH ON THE OPeA IN “REPLACING OPcA BY 
OP +B" IF ANDIT THEN OUPLICATES CAUSES ERRORS | 
IF NOT ADDIT THEN SCTRL WANTS THE TEXT TO BE PLACED 
IN APPROPRIATE AREASCTYPE4SCALE*ISYMBOL«LEN*ISYMBOLSSKEY) 
A CALL ON RETURN«COPYe TEXT DOES IT 


PROCEDURE RETURN.COPY.TEXT3 
SETS UP SCTRL VARIABLES FROM COPY REPLACING INFO AS SCTRL 
WOULD IF IT HAD ISOLATED THE TGKEN FROM THE INPUT 
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PROCEDURE ERRURSseIN«OP.B VARYING : 
SYNTAX CHECKS OPsB *RECURSES TO HANDLE QUALIFIERS AND SUBSCRIPTS 


PROCEDURE PLACE sOPBeINeLIST VARYINGS 
IF SPACE AVAILABLE IN DYNeWA THIS PLACES OPB INTO NYNeWA 


PROCEDURE SUBSCRIPT+ERRORS VARYINGS 
SYNTAX CHECKS SUBSCRIPTS OF OPB 


PROCEDURE REPLACINGe ERRORS VARYING3 
SYNTAy CHECK OF "REPLACING Peer BY OP.sB" PAIRS= IF any ERRORS IT 
RETURNS A le 


PROCEDURE COPYs«PROC VARYING; 
TO SYNTAX COPY STATEMENT AND CAUSE THE SAVING OF REPLACING 
ITEMS IN A LIST 


PROCEDURE INVOKE»PROC VARYING 
le VERIFIES COPY NOT NESTED 
26 VERIFIES LEVEL="01" IN THE DATA™BASE SECTION 
36 OPENS THE DATASET LIBRARY WHOSE NAME IS 
“NOL eDBNAME"/DATASETeNAGE 


PROCEQURE OBseLIT»«TOsISYMBOLS é 
1s BUILDS ISYMBOL DESCRITOR AND FILLS IT WITH “DATA@BASE* 


PROCEDURE PUTs¢DBsTQUALS 
le PROVIDES. "DATA@BASE" AS A LOURe ON THE ONFILE 


PROCEDURE PUT«eCOMPONENTsLISTS 
te PARSES A COMPONENT LIST 
26 SUPPLIES "DATA*BASE" AS A TOUAL FOR EACH COMPONENT@NAME 


PROCEDURE OQUTPUT*sFIXUP3 
To ouTPpul a FIxuP TOKEN ON ITEMS NOT QUALIFYING FOR CORRESPONDING 


PROCEDURE NTRYsERRORCERRNO) VARYING3 
OUTPUTS ERROR AND RETURNS O@TOUTsI@=FDsSDsD8eFIXED NAME 
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MERGE PROCEDURE DETAILS 


TINTGR TYPE 0O 
VARIABLE LENGTH 
26 MERGE 
38 MERGE 
4a MERGE 
* 
TOOC TYPE 1 
36 OROP ON ONFILE CAT START OF BLOCK) 
TREAL TYPE 1 (CVARIABLE LENGTH) 
2@e MERGE ALLFILE ONLY 
36 MERGE ALLFILE ONLY 
46 MERGE ALLFILE ONLY 
* 
TINNLIT TYPE 2 
VARIABLE LENGTH ; 
le MERGE ALLFILE ONLYs MAY BE DROPPED» MAX LENGTH IS 30 CHAR 
20 MERGE ALLFILE ONLY 
36 MERGE ALLFILE ONLY 
4s MERGE ALLFILE ONLY 
* 
TXDN TYPE 3 
3« MERGE & BUILD CONDITION NAME TABLE IF CONDITION FLAG 
ae 
TXSECT TYPE 4 
4s MERGE 
IF LMONITOR AND NOT MONITOR@ALL CHECK MONTTOR FLAG 
AND PUT MONITOR SYMBOL 
* 
TXPAR © TYPE 5 
4s MERGE 
IF LMONITOR AND NOT MONITOR®ALL CHECK MONITOR FLAG 
AND PUT MONITOR SYMBOL 
* 
TFIXUP TYPE 6 (DOES NOT OCCUR) 
* . 
TWORD TYPE 7 | 
fe MERGE CFILE NAME) 
26 MERGE 
3a MERGE | . 
4s MERGE @* IF COND FLAG LOOK UP & EXPAND CONDITION NAME 
ALSN MAY GET € ) TWORDsTINTGR TERRORASIZE ERROR*#ROUNDEDNs 
CREATE TERROR IF INVALID THRU OPERANDS. 
IF WORD MONTTOR CHECK MONITOR FLAG» LOOK UP AND 
PUT MONITOR SYMBOL MEMORY ADORESS 
TWMON TYPE 2&8 | 
le BUILO MONITOR TABLE ™ DONT OUTPUTs DROP 
* 
TCSPL TYPE 9 
TCSPR TYPE 10 
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TQUAL 


TLABL 
Ha 


TALTER 
as 


TPERF 
As 


TPTHRU 
4e 


TLMON 
ls 


TLQUAL 


TRESWO 
DO 

lo 

26 

36 

as 


JEQB 
TR 
1s 
aa 
36 


TOOLAR 
TR 
RE 


MERGE 2 FILES» TRICKY IF ERRORS» 
PAIRS OCCUR ON ONFILE &8 NOT ON ALLFILEs 
SAVE SUBSCRIPTS FROM ALLFILE AND EXPANDes 
MAY OR MAY NOT BE DELIMITED BY TCSPSs 
* 
TYPE i1 CDOES NOT aCCUR) 
* . 
TYPE 12 
MERGE 


TYPE 13 
MERGE 


TYPE 14 
MERGE 


TYPE 15 
MERGE 
* 
TYPE 16 
BUILO MONITOR TABLE = DONT OUTPUT» DROP. 
® 
TYPE 17 (DOES NOT OCCUR) 
* 


TYPE 16 


ES NOT UCCUR ON DNFILE 
BUILD MONITOR TABLE & MERGE 
MERGE 
MERGE 
MERGE 
. * 
TYPE 19 


ANSPAREN TO CONTROL ROUTINES 


* 
TYPE 20 
CLOSE FILES AND PREPARE FOR NEXT PASS 
* 
TYPE 21 
MERGE ALLFILE ONLY 
MERGE ALLFILE ONLY 
MERGE ALLFILE ONLY © DROP IF FOLLOWS CONOsNAME ENTRY 
MERGE ALLFILE ONLY 
; * 
TYPE 22 
OUTPUT MASK TO SEGFILEs 
MAKE PCINFO FILE & OUTPUT 
* 
TYPE 23 
ANSPAREN TO CONTROL ROUTINES» 
SET GLOBAL DOLLAR FLAGS 
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ls 
Ze 
3% 
Me 


TERROR 


MERGE 
MERGE 
MERGE 
MERGE 


TY 


ALLFILE ONLY 
ALLFILE ONLY 
ALLFILE ONLY 
ALLFILE ONLY 
. * 
PE 24 


ALLFILE ERRORS MAY OR MAY NOT MATCH DNFILE TOKEN. 


DN 


FILE 


ERRORS MATCH 


OuTPuT ALL ERRORS TO 


Le 
2a 
3e 
Ge 


TCARD 
MU 

le 

Zé 

3e 

Ke 


TPROCE 


TROFNS 
30 


TLABEL 
3a 


TCSPS 
Ha 


TYPE 


MERG 


E FROM EITHER 


MERGE FROM EITHER 


MERG 
MERG 
IF 


E FROM EITHER 
£ FROM EITHER 


"CORR™ COMPLICATIONS MAY ARISE 


CREATE ERROR IF 


TY 


* 
PE 25 


ALLFILE TOKENs € 
AONFILE 

PICE 

FILE 

FICE 

FILE 


INVALIQn PIcTurRe 


XCEPT IN "CORR" 


OR CONDITION NAmE, 


ST BE KEPT IN CORRECT SEQUENCE WITH ERRORS © 


MERGE 
MERGE 
MERGE 
MERGE 


SSED 


ALLFILE ONLY 
ALLFILE ONLY 
ALLFILE ONLY 
ALLFILE ONLY 

*® 
TYPE 26 


x 


TYPE 27 
MERGE 


REC 


TYPE 28 


MERGE 


* 


TYPE 29 


DELIMITS “CORR" 


* 


(DOES NOT OCCUR) 


30 AND ABOVE DO NOT OCCUR IN PASS 


t 


CORRESPONDING c OmMmMatT 


SERIES ON ONFILE ONLY @ DROPPED 


Gy 


NATIONS 
DN 


ak 


TERROR 
TCSPR(B) 


TCSPLCA) 


ALL DN ALL 

Ret atk kee 

MOVE MOVE 
CORRESP CORRESP 
TCOSPLOCA) TCSPLCA) TCSPLCA) 
TERROR TCSPR(B) 
CERRO OETKER HE oH HORE HHHE EHH KEELE CEH EEO OHHH ODES 
MOVE MOVE 
CORRESP CORRESP 
TCSPLCA) TCSPLCA) TCSPLCA) 
TCSPR(B) TCSPR(B) TCSPR(B) 


TCSPLCC OF A) 
TCSPR(C OF B) 
TCSPLOD OF A) 
TCSPRC(D OF B) 


— TCSPS 


TERROR 
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78 


ERCHCe CRD OmHaHREH HOH KRO EHO HOHEHC HO HOHEFE OR HHO OH ER HBO HOE HER HOES 


MOVE MOVE 
CORRKESP CORRESP 
TCSPLCA) TCSPLOA) " TCSPLCA) TERROR 
TCSPR(B) TCSPRC(R) TCSPR(B) TERROR 
TERROR . 
TERROR 


re ee oe eee 


PROCEDURE PUT3 
PUTS PRE@=FORMMATED TOKEN FROM WwORKAREA TO ADNBUFF 


PROCEDURE DYN sLIM.CHECKCOESC) BITC48)3 
ASSURE NMESC IS WITHIN THE LIMITS OF DYNAMIC MEMORY 


PROCEDURE PUTs+TOswAs 


PuTS TOKEN FROM ALLBUF TO WORKAREA a COMBINES DON TOKEN IF APPLICABLE 


FORMATS TOKENS READY TO MOVE TQ ADNBUF 


PROCEDURE MCTBLe¢SETUP(PisP2sP3)3 
; le INITIALIZES THE MASK CONTROL TABLE 


ROUTINE PCseSETUP3 
de INITIALIZES THE MASK CONTROL TABLE WHICH IS CONSTRUCTED 
AS FOLLUWS? 
CLI gBIT¢3) CLASS INDEX USED TO SET A CLASS FLAG IN CLASSewWA 
MA BITC4) MASK ADDRESS TO BE EMITED 
MC BITCS) MASK CONTROL USED AS A CASE VARIABLE AND FOR 
PRECIDENCE CHECKING IsEe<#><¢$><2> IS PROPER 
2s INITIALIZES THE CLASS TABLE WHICH IS INDEXED BY THE CLASS.WA 
THE CLASSeWA BITS TAKE ON THE FOLLOWING MEANING! 
O:DUMMY | 
TsnumMERIC EDIT SPECIFIED IeEs + @™ $ Z* 6 Bb 
23x SPECIFIED 
3tA SPECIFIED 
439 SPECIFIED 
~—=5:B8 SPECIFIED 
68INSERT SPECIFIED IeE«e 99/99/99 
710 SPECIFIED 
30 IF DECIMAL POINT IS COMMA WAS SPECIFIED THEN THE MASK CONTROL 
ENTRY FOR “at! AND Ma ARE INTERCHANGED 


4s IF CURRENCY IS LITERAL WAS SPECIFIED THEN THE MASK CONTROL ENTRY | 


FOR "S$" IS INTERCHANGED WITH THE ENTRY FOR THAT LITERAL 


PROCEDURE PCERRORCPCERROR«NO D3 
le PROCESSES ERRORS IN A PICTURE STRING 


PROCEOURE MAKMSKCINSTRY3 | 
le EMITS A MASK OPERATOR AND MASK ADDRESS 
20 RETURNS IF NO MORE ROOM IN MSKWA OR IF RPT#O 


ROUTINE GETPCHR GET A PICTURE CHARACTER 


le GETS A PICTURE CHARACTER * 
2s CHECKS FOR REPEATED CHARACTER TeEs 999 
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36 CHECKS FOR REPLICATION FACTOR IaEs 9(3) 
4s UPDATES MAP SIZE COUNTER 
5s GETS THE MASK CONTROL TABLE ENTRY AS A FUNCTION 
OF THE ERCDIC CHARACTER OBTAINED 
6¢ SETS A CLASS BIT USING THE CLI INDEX OF MCTRL ENTRY OBTAINED 


ROUTINE UPSIZE3 
1é UPDATES THE LOGICAL SIZE COUNTERC(SIZE) 
2e SAVES PREVIOUS MASK CONTROL 


ROUTINE MOVITS 
1. EMITS A MOVE DIGITS GPERATOR 
26 UPDATES LOGICAL SIZE 


ROUTINE FLTCHK3 
le CHECKS THE FLOAT TOGGLE 
2¢ EMITS AN INSERT FLOAT OR A MOVE DIGITS 


ROUTINE INSRT3 
ls CHECKS THE SUPPRESS TOGGLE 
2e EMITS AN INSERT SUPPRESS OR 
30 EMITS AN INSERT UNCONDITIONALLY AND 
4s SAVES MCTRL AND SFTS INUFLG FOR SIZE=0 


60 


DATSYN PROCEDURE DETAILS 


PROCEOURE DATSYNsEXPLODE3 
Rertaeneeaeawe MANAGEMENT OF DYNAMIC wORK AREA (DYN, WA) BRERA REE 
Le THE PCeTABLE IS LOADED FROM THE PCFILE INTO THE FIRST PART 
OF ONYNe«eWA AT THE BEGINNING OF DATSYN 
2e FOTseLISTseHEAD CONTANS A LINK TO THE FIRST FILE INFO ENTRY 
CFOITeINFO) LINK LIST “ONE ENTRY PER SELECTCED) FILE 
3. THE DATA NICTIONARY IS BUILT BEGINNING AT THE END OF DYNeWA 
AND GOING TOWARD THE FOs.INFO TABLE"ONE ENTRY FOR EACH ATA 
SEGMENT CANDIDATE WITH DDICLO] BEING RESERVED FOR THE 
LABEL RECORD WORK AREA IN USE PROCEDURES. 
4s IF DYNePTR EVER MEETS ODICTsLIMIT AN OUT@OF “MEMORY 
CONDITION EXISTS: 
Ss AT THE BEGINNING OF EXPLODE THE FOIsINFO LINK LIST ANN THE 
DATA DICTIONARY TABLE ARE REPLACED BY AS MANY DNINFO FILE 
ENTRIES AS WILL FIT WITH THE OVERFLOW HANDLED ON A RANDOM 
RETRIVEAL BASIS 
DYNeWA 
PCeTABLE LOADED 
FROM PCINFO FILE 


@S{Qnmoansanade na Geo ut Smarts anaes eases ant a rae 


FOITsLISTs«eHEAD ===> <eeees ONIS TABLE BASE 
C24) FD«s INFO LINK 
Sees selene SS LIST FOR ONINFO FILE 
ENTRIES DURING 
Sees ee eee Sees Sense EXPLODE 
OYNG PER Serer eres > CAS MANY AS WILL 
AVAILABLE FIT) 


ODICTsLIMIT ssseee> 
DDICT TABLE 
DDICTsBASE *°"ee""> <weere ONIS TABLE oLIMIT 


PROCEDURE GETePCeINFO VARYING3 
le VERIFIES THAT THE PCoINFO FOR A PCaOCUR IS IN THE .PCo TABLE 
26 MOVES IT TO PCeINFO 
3¢ SETS SIZE TO CORE«¢SIZE 


PROCEDURE FINDsONINFOCOCUR)S FORMAL OCUR VARYING3 
1. FINDS THE BLOCK CONTAINING THE DNINFO FOR THIS OCUR 
2e IF THE BLOCK IS NOT IN MEMORY THEN THE CURRENT BLOCK 
IS wRITEN AND THE REQUIRED BLOCK IS READ 


PROCEDURE GET+eONINFOCOCUR)S | 
le GETS A RECORD FROM THE DNINFO FILE 


PROCEDURE GETS 


ls 
26 
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GETS A TOKEN FROM THE ALLON FILE INTO THE ADNeWA 

USING ADNsTABLECTYPE) FOR UNBLOCKING CRITERIA AND ACTION 
TO BETAKENs TOKENS OF INTEREST WILL BE RETURNED TO THE 
CALLER AND OTHERS WILL BE WRITTEN TO THE OUTPUT FILE 


PROCEDURE MAK «FWD REFERENCE (FWD OREF D3 


La 
Ze 
36 


PROCEDURE I 
1s 


PROCEDURE P 
ls 
Ze 


3e 


PROCEDURE C 
1, 


PROCEDURE P 
Le 


PROCEOURE C 
la 


CREATES A FORWARD REFERENCE AT FWOeREF 

ALLOWS A TWORD OR TINTGRCFOR LITERAL FILE@LIMITS) 

SETS FWDOaTYPE AS FOLLOWS! 

OrTwORD THAT NEEDS TO BE FIXED UPCFWOsDADDRETWORDsOCUR) 
AsTINTGR FILE LIMIT CONVERTED TO 24 BITS BINARY 


TSe¢AeSORTER VARYINGS | 
CHECKS FOR A SORTER DEVICE 
CCHECKS HDWReINFO SUBSCRIPT) 


ARSE saFWNeREFSCREQUIREN -SIZE*ERRMSGsFWOSREF D3 

PARSES FORWARD REFERENCE 

CHECKS TO. SEE IF THE REFERENCE IS AN UNSIGNED*s NUMERIC, 
ELEMENTARYs COMPUTATIONAL ITEM OF THE REQUIRED SIZE 
SAVES THE SEGMENT INDEX AND DISPLACEMENT AND MARKS THE 
TYPE AS A FIXED®UP TWORD 


HECK sFWOSeFILEsLIMITCFILEsLIMIT)3 
CHECKS CURRENT ITEM AGAINST FORWARD REFERENCE FILE LIMIT 
DATANAMES 


ARSE sSPECIAL*sKEY VARYINGS 
PARSES ACTUAL KEYS FOR REMOTE AND SORTER DEVICES 


HECK eFORWARDeLIST3 
CHECKS CURRENT ITEM AGAINST THE FORWARD REFERENCE 


LIST BUILT IN THE ENVIRONMENT DIVISIONCEsGse SELECTese 


ACTUAL KEY IS DATANAME vee) 


PROCEDURE PUTsDNINFO$ 


le 
2a 


CREATES THE DNINFO FILE 
CALLS ON FIND«ONINFO TO GET THE REQUIRED BLOCK 


PROCEDURE MAKsONINFOS 


Le 


PROCEDURE A 
1s 


MAKES A ONINFO ENTRY FOR EACH EXPLICIT DATANAME THAT IS 
NOT A FILLER 


SSIGNsCOPX3 
ASSIGNS THE COP INDEX 


PROCEDURE DODOT VARYING} 


le 


23 
36 


PROCEDURE I 
1s 


VERIFIES THE PROPER CLASS FOR JUST AND BwWZ 
DECLARATIONS OF AN ELEMENTARY ITEM 

IGNORES BWwZ CLAUSE IF IT IS DONE BY THE EDIT MASK 
RETURNS 2 TO SIGNAL EXIT 


GNORE VARYING3 ; 
RECOVERS TO A FIXED NAME AND RETURNS 2 CEXIT) 
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26 RECOVERS TO A DATA CLAUSE AND RETURNS 0 


PROCEDURE ERPs IGNORECERRMSG) VARYINGS 
Je QUTPUTS THE ERROR MESSAGE 
2e RETURNSCIGNORE) 


PROCEQURE GET*sTINTGR(CANT+BEsZERO) VARYING 
1, RETURNS THE BINARY vALUE OF THE CURRENT INTEGER TOKEN 
26 GETS PAST THE LITERAL 
34 TRUNCATES TO 8 DIGITS(MOD 1697775215) 


PROCEDURE GETs«TINTGRsRANGE VARYING 
Le PARSES ees INTEGER*ICTO INTEGER"2] CLAUSE 
26 RETURNS INTEGER#=1 OR INTEGER@2 
36 SETS FPBsVARIABLE AND VERIFIES THAT FPBsHDwR?TOISK 


PROCEOURE DOCCURS VARYING3 
le CHECKS THE LEVEL FOR 77 OR O1 
@e CHECKS FOR VARIABLE LENGTH SPECS 


PROCEDURE FIGURATIVE sCONSTANT3 
Le ENCODES FIGURATIVE CONSTANTS 
2e CHANGES TYPE TO TINTIGR/TNNLIT 


PROCEDURE VALUEsERROR VARYINGS 
le CHECKS ADN TOKENS FOR LEGAL VALUE DECLARATION 
2@e HANOLES CSIGNED) LITERALSs FIGURATIVE CONSTANTS» 
ALL <LITERAL> AND "OATE=COMPILED" 
36 BUILDS AN ENCODED TINTGR/TREAL/TNNLIT 


PROCEDURE DVALUE VARYINGS 
le PROCESSES THE VALUE CLAUSE OF A DATA DESCRIPTION 
2¢ IGNORES IT AS DOCUMENTATION IF IN THE FILE SECTION 
30 SAVES THE VALUE IN LIT sINFO 


PROCEDURE HARDWARE *@CHECK VARYING3 
le VERIFIES THAT THE DECLARED HARDWARE WILL ALLOW 
4 BIT DATA 


PROCEDURE DINDEXED VARYING 
Le PROCESSES INDEX NAMES AND WRITES THEM TO THE DNINFO FILE 
2s THE OCUR OF THE ASSOCIATED TABLE IS PUT INTO THE 
GRP»LENGTH OF THIS ENTRY 
3e REPORTS THE NUMBER OF INDEX NAMES PROCESSED. 
4e MAINTAINS THE OCUR OF THE FIRST AND LAST INDEX NAME FOR 
SUBSEQUENT ADDRESS ASSIGNMENT 


PROCEDURE DATA«CLAUSES VARYING3 
ls PROCESSES THE CLAUSES OF A DATA DESCRIPTION 
2e VERIFIES THAT BZsJUSTs#SYNC NOT DECLARED FOR GROUP ITEM 


PROCEOQURE GETsTXON3 
1a GETS AN ExPLicttT DATANAME AND ITS DATA CLAUSES 
2¢ RETURNS FOR LEVEL2#04 A "se" OR A FIXED NAME 
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36 SYNTAX CHECK LEVEL NUMBERS wITH SPECIAL HANDLING OF 
660977 AND 88 
4s NELIVERS THE TXON AND ITS ATTRIBUTES TO A HOLD AREA 


PROCEDURE GETs«REN.OPND3 
GETS A RENAMES OQPERAND AND VERTFIES THAT? 
1. IT IS IN THE CURRENT RECORD 
2e THE "THRU" OPERAND IS NOT SUBORDINATE TO THE "FROM" OPERAND 
3e ITS LEVEL 200201 266e77s0R 86 
&e ITS A SIMPLE VARIABLE 


PROCEQURE RENAMES»ERPCERRNO)3 
fe QUTPUTS THE ERRGR MESSAGE 
26 RECOVERS TO A TXONe A FIXED NAME OR A "a" 
34 GETS PAST THE ™," 


PROCEOURE RENAMESs+THRUS 
be SYNTAX CHECKS THE THRU PART OF A LEVEL 66 ENTRY 
2« BUILDS A GROUP ONINFO ENTRY © 


PROCEDURE LEVEL 663 | 
le SYNTAX CHECKS A LEVEL 66 ENTRY 
24 BUILDS A DNINFO ENTRY. 


PROCEOURE RENAME 
Le CONTROLS SYNTAX CHECKING OF LEVEL 66 ENTRIES 
Ze PUTS THE ELEMENTARY OR GROUP ITEM TO THE ONINFO FILE 


PROCEDURE MONs23 | 
1s ADJUSTS THE LOCATION COUNTER TO A 9 MOM 2 ADDRESS 
2s OUTPUTS A"FILLER ADDED" WARNING MESSAGE IF NECESSARY 


PROCEDURE ALLOCATECGRPsUSAGE*GRPsLOCALSePTR)3 
be THIS RECURSIVE PROCEnNURE ALLOCATES mEMORY FOR LEVEL 77 
ENTRIES AND RECORD DESCRIPTIONS 
2s PARSES USAGE DECLARATIONS AND COPIES GROUP USAGE TO ITS 
SUBORDINATES 
3s PARSES ENTRIESCHAVING A SAME NAME) FOR ILLEGAL OUPLICATES 
4, FINDS THE pIGIT SIZE OF ELEMENTARY ITEMS AND ADJUSTS TO 
AN EVEN DIGIT ADDRESS AND SIZE FOR GROUP ITEMS 
5s PARSES REDEFINED OPERANOS OF OTHER THAN AN O1 ENTRY 
6s PARSES VALUE DECLARATIONS 
7s PARSES FORWARD REFERENCES DECLARED IN THE ENVIRONMENT 
DIVISION AND THE FILE SECTION 
Bs GETS PAST LEVEL 88 ENTRIES WHICH HAVE ALREADY BEEN PARSED 
9s RECURSES FOR INCREASING LEVEL NUMBERS 
106 SAVES THE. USAGES OF SUBORDINATE ENTRIES FOR SUBSEQUENT 
REPORTING TO THE GROUP ENTRY 
fie FINOS GROUP ITEM SIZES 
126 ALLOCATES SPACE FOR SUBSCRIPTED VARIABLES 
136 VERIFTES THE CORRECT SIZE FOR REDEFINING AREAS 
14s ITERATES FOR SAME LEVELS 
15s RETURNS FOR LEVELS LEO 01 
16* NOTE:A VALUE STACK TEMPLATE AND STKes PTR INDEX IS USEN TO 
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REFERENCE LOCAL DATA IN ORDER TO SAVE NAMEsSTACK SPACE 


PROCEDURE FINO DIGIT.SIZE3 

le FINDS. THE DIGIT SIZE OF THE CURRENT DATA ITEM 

26 VERIFIES THAT NO DATA CLAUSES HAVE BEEN SPECIFIED FOR 
AN INDEX DATA ITEM 

3¢ ADJUSTS THE LOCATION COUNTER TO A CHARACTER ADDRESS FOR 
GROUP ITEMS 

4s VERIFIES THAT A PICTURE WAS SPECIFIED FOR ELEMENTARY ITEMS 

56 CHECKS FOR PROPER CLASS AND SIGN SPECS ON COMP ITEMS 


PROCEDURE RENEFINED «OPERANDS ~ 

le VERIFIES THAT THE REDEFINED OCUR=LAST OCUR OR THE OCUR OF 
THE ORIGINALLY REDEFINED AREA 

26 VERIFIES THAT THE LEVELS ARE THE SAME 

3a CHECKS FOR SUBSCRIPTED OPERAND 

4s RUMPS A REDEFINES COUNTER 

Se RESETS THE LOCN COUNTER AND CHECKS FOR A GROUP ITEM ADDRESS 
NOT CHARACTER ADJUSTED 


PROCEDURE VALUEaPARSE $ 
ls PARSES THE VALUE DECLARATION OF THE WSeSECTION 
2s CHECKS FOR SUBSCRIPTED GR REDEFINED AREAS 
36 CHECKS FOR VALUE DECLARATION ON PRIGR GROUP ITEM 
4s SAVES THE DECLARED VALUE OF A GROUP ITEM 
5s CALLS MAKeVALUE FOR AN ELEMENTARY ITEM 


PROCEDURE CHECK.FOR.-DUPLICATES3 
1s PARSES THE FOLLOWINGS? 
Ol Aa 
O02 Be 
03 Ca 
04 D «asa 
O4 E eae 
04 D0 «ee CANT BE QUALIFIED 
04 B ees APPEARS TO QUALIFY ITSELF 
2s THIS IS ACCOMPLISHED 8Y SAVING A POINTER TO PARENT DATA 
AS A LOCAL TO THE RECURSIVE PROCEDURE 


PROCEDURE APPLYsGROUPsUSAGES ; 
le COPIES. DECLARED GROUP USAGE TO SUBORDINATES 
2e CHECKS FOR CONFLICTS 


PROCEDURE CHECKsREDEFINEDsSIZES 
te CHECKS REDEFINEO SIZE AGAINST THE SIZE OF REDEFINED NPERAND 
26 SPECIAL CONSIDERATION IS GIVEN TO COMP ITEMS 
36 UPOATES RDFNS+COUNT 


PROCEDURE CHECK seFORWARDeGROUPsITEM3 
le CHECKS LOCUR AGAINST THE FORWARD LIST 
LIST BUILT FOR ACTUAL KEY*FILE LIMITS 
AND VA OF IDs PRESENTLY ONLY CHECKS THE ACTUAL KEY 


PROCEDURE FIXUP sGRPsSIZE3 
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ts FINDS THE GROUP SIZE OF AN ITEM AND FIXES IT UP ON THE 
ONINFO FILE 
26 CHECKS FOR GROUP VALUE DECLARATION 


PROCEDURE FDOI+eSEARCHCFOsOCURSADD.IT)3 

le STARCHES THE FOsINFU LIST FOR A MATCHING FN OCUR 

26 ADOS THE FO.OCUR TO THE LIST UPON REQUEST 

36 WHEN A ODUPLICATE SELECT CLAUSE IS SPECIFIED*A NEW LIST 
ELEMENT 15 CREATED BUT ONLY THE FIRST SELECT WILL BE 
RETRIEVED ON LOOKUP 

4s IF A NEW LIST ENTRY IS TO BE MADE BUT THERE IS NO MORE 
ROUMs THE NEW. LIST ELEMENT WILL OVERWRITE THE LAST 
LIST ELEMENT 

Se FDIGLISTsHEAD CONTAINS THE VALUEsSTACK ADDRESS OF THE 
FIRST ENTRY OF THE LINK LISTe IF. 20 THEN THE LIST IS EMPTY, 

66 IT IS IMPORTANT THAT FOI.NEXT BE THE FIRST FIELO OF 
FOeINFOe THIS ALLOWS FOITeLIST»eHEAD TO BE HANOLED THE SAME 
AS FOIT.NEXTs CSEE FDe INFO TEMPLATE) 


PROCEDURE ITSeAeTAPE VARYING3 
ls CHECKS FOR A TAPE DEVICE 
CCHECKS HOWRe INFO SUBSCRIPT) 


PROCEDURE ITSeAeDISK VARYINGS 
les CHECKS FOR A DISK DEVICE. 
CCHECKS HOWRe INFO SUBSCRIPT) 


PROCEDURE FILEsCONTROL3 
he PARSES THE SELECT STATEMENTS OF THE FILE=CONTROL PARAGRAPH 
26 BUILDS AN FDINFO TABLE ENTRY IN SELECTCED) ORDER SO THAT 
FO DECLARATION CAN BE ADDED TO ITS CORRESPONDING SELECT 


PROCEDURE IGNORE VARYING3 
le RECOVERS TO A NON®ZERO CATAGORY 
268 RETURNS 0 


PROCEDURE ERPs IGNORE CERRMSG) VARYINGS 
16 QUTPUTS THE ERROR MESSAGE 
26 RETURNSCIGNORE) 


PROCEDURE ASSIGN VARYING$ 
Le PARSES THE ASSIGN CLAUSE 
26 VERIFIES THAT HARDWARE NEQ SPO 
36 VERIFIES THAT SO FILES ARE ASSIGNED TO OISK 


PROCEDURE RESERVE VARYING3 
de PARSES RESERVE oe ALTERNATE AREAS 


PROCEDURE MAKeFILEsLIMIT3 
le PARSES A FILE*LIMIT OPERAND 
2s GETS SPACE AT THE END OF THE FOINFO ENTRY 
30 UPDATES FOIePTR AND FILEsLImMITse TABLE*BOUND 


PROCEOURE FILEsLIMITS VARYINGS 


86 


le PARSES FILE“LIMITS AREose 

2. ADDS THE FILE*LIMIT PAIRS TO THE END OF THE FOINFO ENTRY 
36 A FILE*LIMIT=SO INDICATES THE END OF THE LIST 

4, PROCESSES "THRU END" AS @FFFFFE® 


PROCEDURE ACCESSsMODE VARYING3 
ts PARSES ACCESS MODE IS eos 
2s INSISTS ON SEQUENTIAL FOR SD FILE 


PROCEDURE ACTUAL SsKEY VARYING 
1, PARSES ACTUAL KEY IS DATANAME 


PROCEDURE DUT VARYING3 
ds VERIFIES THAT A HARDWARE DEVICE wAS SPECIFIED 
2s VERIFIES THAT ACTUAL KEY WAS SPECIFIED FOR A RANDOM FILE 
36 IF FILE LIMITS ARE PRESENT FOR ANYTHING OTHER 
THAN A DISK FILE FODI.FILEsLIMITS«eFLG IS RESET 
AND NO SPACE FOR THE FILE LIMITS IS RESERVED IN 
FILE sL IMI Te TABLE se BOUND 
4e RETURNS 
Os TKEYsCATS=SELECT 
23: OTHER 


PROCEDURE FILCTL+eCLAUSES VARYINGS 
te PARSES THE FILE CONTROL CLAUSES 
2e RETURNS 
O8 RECOVER 
i: GET$ RECOVERS 
2% RETURN . 


PROCEDURE ERP*sSKIPITCERRMSG) VARYINGS 
1. SKIPS A SELECT DECLARATION ATER OUTPUTING THE ERROR 
Ze RETURNS! ‘ 
O:IF STOPPED ON “SELECT” 
LrlF STOPPED ON A FIXED*NAME NEQ “FILE” 


EROGEOUSE SSELECT3 
te PARSES THE"SELECT"DECLARATION OF THE FILE*=CONTROL 
28 DELIVERS THE SELECT ATTRIBUTES TO THE FDeINFO TABLE 
3e RECOVERS FROM MISSING "os" 


PROCEDURE I+OeCONTROLS3 

le PARSES THE RERUNe SAME CRECORD] AREA AND 
MULTIPLE FILE CONTAINS DECLARATIONS OF THE 
T*O*CONTROL PARAGRAPH 

2e THE MULTIPLE FILE DECLARATION IMPLIES A "SAME AREA" 
DECLARATION FOR THE FILE“NAME LIST AND NEED NOT BE 
DECLARED SEPARATELY 

36 THE SAME AREA AND SAME RECORD AREA Lists ARE MAINTAINEO 
IN FD OCUR ORDER WITH THE LAST LIST ELEMENT CONTAINING 

THE MAXIMUM SIZES FOR ALL THE LIST MEMBERS 


PROCEDURE PROPERsIsOsCONTROL+sCLAUSE VARYINGS | 
LeRETURNS 1 IF THE CURRENT TOKEN {£5 AN OeKe IsQeCONTROL TOKEN 
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PROCEDURE TOCseIGNORECERRMSG)3 
le RECOVERS TO AN JT*O*CONTROL CLAUSE AFTER OQUTPUTING THE ERROR 


PROCEDURE GOTs«AsFILEsNAME VARYINGS 
i» PARSES A FILE*NAME LIST AND SEARCHES FODINFO FOR THE FILE 
2s PUTS AN ERROR IF NO FILENAME AND FOsCOUNT=0 
36 RETURN? 
Oz:NO FILE#*NAME 
LsFILE*NAME FOUND 


PROCEDURE MAKeSAME sAREASZ 

1, RUILDS A LINK LIST OF FILE*NAMES APPEARING IN A 
SAMELTRECORDIAREA FOR «ee DECLARATION OR A 
MULTIPLE FILE TAPE eoe« DECLARATION 

2¢ ALL ELEMENTS CF A GIVEN FILE*NAME LIST POINT TO THE FNHINFO 
ENTRY OF THE FILENAME IN THAT LIST THAT HAS THE LOWEST 
OCURCLOWsFDeOCURSPTR) 

36 REDUNDANT FILE=NAMES ARE ALLOWED 

Ge IF A FILE@“NAME APPEARS ON MORE THAN ONE LIST THE EFFECT IS 
THE SAME AS IF ALL THE FILES APPEARED ON THE SAME LIST 

Se THE HIeFOeOCUR ENTRY CONTAINS THE MAXIMUM RECORD WORK AREA 
SIZE OF ALL ITS LIST ELEMENTS 


PROCEDURE RERUN«PARSES | i 
le PARSES oes RERUN ON TAPE EVERY INTEGER RECORDS OF FILF*NAME 


PROCEDURE MULTIPLE .PARSE3 
1s PARSES «ec MULTIPLE FILE TAPE "FILE@I0" CONTAINS 
FILE=NAME POSITION 1 eae 


PROCEDURE SAME.PARSE3 
Le PARSES ose SAME CRECORDI AREA FOR FILE*NAMEsee 


PROCEDURE APPLYsPARSES 
PARSES ees APPLY MICR CAND/OR) OCR ON FILENAME Ces 


PROCEQURE MONITOR«ONDICTS 
Le PRINTS ODICT+sRECLODICT«PTRI 


PROCEDURE GET*nNDICT#SPACE3 

le GETS SPACE FOR A ON DICTIONARY TABLE ENTRY FROM THE END 
OF THE DYNAMIC WORK AREACDYN«eWA) AND PROCEEDING TOWARD THE 
DYN.PTR 

26 IF NO ROOM THEN THE Last GOOD SPACE 15 REUSED 

36 UPDATES SEGsINXeCOUNT AND SETS DDICTsPTR 

4s NDICTsSEG CONTAINS THE FOLLOWING FOR SEGMENT GATHERING! 
Os ALLOCATE TO SEGMENT OCEoGs 77 ENTRIES OF WS*SECTION) 
ls FORCE TO A NEw SEGMENTCE «Ge FILE@RECORD WORK AREAS) 
2: MAY GATHER TQ A NEW SEGMENTCE «Ge O1 S OF WS*SECTION) 


PROCEDURE ALLOCATE sAN.O13 © 
Le ALLOCATES A RECORD DESCRIPTION OR A GROUP OF 77 ENTRIES 
20 FINOS THE MAXIMUMCLOCN®LOCN MAX) 
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PROCEOQURE FILEsSECTIONS 
Le PARSES THE FILE DECLARATIONS OF THE FILE SECTION 
2e SELECTS THE LARGEST RECORD SIZE FOR STORAGE ALLOCATION 
36 CREATES FPB AND LABEL RECORD TOKENS ON THE SEGFILE 
4e UPDATES SAME AREA AND SAME RECORD AREA LISTS WITH MAXIMUM 
SIZES 


PROCEDURE CHKsoFFILES ' 
1s PARSES THE FILE CONTAINS oes ATTRIBUTES FOR DISK FILES 
2e MAKES FPBeRCOSsAREA A MULTIPLE OF FPBeRCOSsBLOCK 


PROCEDURE PROPERsFDeCLAUSE VARYING} 
Le RETURNS 1 IF CURRENT TOKEN IS AN OeKe FD TOKEN 


PROCEDURE IGNORE VARYING3 
1: RECOVERS TO A PROPER-FDeCLAUSE OR FIXED NAME 


PROCEDURE ERPsIGNORECERRMSG) VARYING3 
1, OUTPUTS THE ERROR MESSAGE 
2. RETURNS IGNORE 


PROCEDURE FFILE VARYING 
Le PARSES THE FILE CONTAINS oo6 CLAUSE OF AN FO 


PROCEOURE RRECORD VARYING3 
1s PARSES THE RECORD CONTAINS o8¢ CLAUSE OF AN FD 
2¢ IS FOR DOCUMENTATION ONLY WITH THE SIDE EFFECT OF 
FPBsVARITABLE/J1 FOR AN INTEGER RANGE . 


PROCEDURE BBLOCK VARYING} 
Le PARSES THE BLOCK CONTAINS ¢e6 CLAUSE OF AN FO 
2e SAVES THE RLOCKING FACTOR IN FPBeRCOS*+BLOCK IF “RECORNDS*" 
Is SPECIFIEDs ELSE IN FPBsMAXeBLOCKsASIZE 


PROCEDURE LABEL sRECORNDS VARYING! 
Le PARSES THE LABEL RECORDS sos OF AN FO DECLARATION 


PROCEDURE RECORDINGs MODE VARYINGS 
Le PARSES RECORDING MODE IS «oe OF AN FD DECLARATION 


PROCEDURE IID VARYINGS 
le PARSES THE VALUE OF ID IS ee 


PROCEDURE FOseCLAUSES VARYINGS 
1. PARSES THE FD CLAUSES 
26 RETURN 
OtRECOVERS? 
L:GETSRECOVERS 
2sRETURN 


PROCEDURE GET+sANsFD} 
1s PARSES AN FD e+e DECLARATION 
2e CUMBINFS SELECT «e868 DECLARATIONS TO BUILD THE FPB 
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PROCEDURE ASSIGNsSEGs INXS 
Le SETS THE FOI.SEGaINX TO THE SEGeINX OF ITS PREDICESSOR 
InN A SAMESAREA LIST OR ASSIGNS A NEW SEGMENT INDEX 


PROCEDURE FIXUPsONeDICTCSEGXoLGTH)3 
1, FIXES UP DDICTsLENGTH(SEGX) WITH THE MAXCDOICT« LENGTH»LGTH) 


PROCEDURE FOD.01.PARSE3 

de PARSES O1 oes OF A FILE 

2e CHECKS FOR OUPLICATE RECORD NAME 

36 CHECKS FOR REDEFINES wee OF THE FILE RECORD 


PROCEDURE ITSeAsLASELsRECORDS 
de ASSIGNS DDICT(CO}] AS THE wORK AREA FOR THE RECORD 
2e KEEPS TRACK OF THE MAXIMUM RECORD SIZE 


PROCEDURE ITSsA RECORDS 
le SAVES THE FIRST O01 OCUR 
26 KEEPS TRACK OF THE MAXIMUM RECORD SIZE OF THE FILE 
36 IF RECORDING MODE IS ASCII* FORCES USAGE IS ASCII 


PROCEDURE FILEsRECORDS3 
te PARSES FILEsRECORDS AND FILE«LABEL*+¢RECORDS 
26 VERIFIES THAT FILE s0160CUR?0 


PROCEDURE FIXUP. FILE.SIZES3 
1, FIXES UP THE SIZES IN ODICT AND ONINFO 
26 FINDS FPBeRBLOCKeSIZE AND FPR*RECORD «SIZE 
3¢ PUTS THE FPB AND FPB TRAILER TO THE SEGFILE 


PROCEDURE PARSE oFILEsDESCRIPTIONS 
ls PARSES A FILE DESCRIPTION AND ITS FILEsRECORDS 
2s HANOLES ERROR RECOVERY FOR A RECORD DESCRIPTION THAT HAS 
NO FPB ASSOCIATED WITH IT 


PROCEDURE WS+SECTIONS 
Le PARSES THE WORKING™STORAGE SECTION 
26 SELECTS THE LARGEST REDEFINED RECORD FOR STORAGE ALLOCATION 
36 PAYS SPECIAL ATTENTION TO LEVEL 77 ENTRIES 


PROCEDURE MAKsON«DICTS 
le UPDATES THE DATA DICTIONARY ENTRY FOR A DATA SEGMENT 
CANDIDATE AND GETS SPACE FOR THE NEXT ONE 


PROCEDURE CHFCKsOL.ZREDEFINEDS 

le CHECKS FOR REDEFINED O01 OF WORKING*STORAGE SECTION 

2s INHIBITS REDEFINITION OF AN O1 FILLER 

36 UPDATES SEGMENT INDEX FOR RECORDS WITH NO REDEFINES CLAUSE 

Me VERIFIES THAT THE REDEFINED OCUR=LAST RECORD OCUR OR 
THE OCUR OF A PRIOR RECORD OF A CHAIN 

Se RESETS THE LOCATION COUNTER AND SETS RDFNS*COUNT WHEN 
NECESSARY 


PROCEDURE DATSYNewINDUPS 
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1s GETS FPB ADORESS OF THE MONITOR FILE IF NECESSARY 

2a FIXES UP FILE*LIMITS AND ACTUAL KEY ADORESSES IN THE FPB 

36 FIXES UP FPBeWAs AND ONINFO ADDRESSES FOR FPBS ON THE 
SAME CRECORD)] AREA LISTS 


PROCEDURE FILL GHOWRe TABLEC PIs P2sP3-P4 )3 
Le INITIALIZES THE HARDWARE TABLE 


PROCEDURE FILLsADNsTABLECP1sP2)3 
te INITIALIZED THE ALLON FILE CONTROL TABLE 


PROCEDURE DATSYNeSETUP3 

ls BUILDS PCeINFO TABLE AT THE BEGINNING OF THE 
OYNAMIC WORK AREA 

26 INITIALIZES THE ALLON FILE CONTROL TABLE AS FOLLOWS! 
ADN@TSIZE BIT¢7) TOKEN SIZE FOR UNBLOCKING 

ADNeCASEV RITC4) CASE STATEMENT VARIABLE 

36 READS THE FIRST BLOCK OF THE ALLON FILE 

4s OPENS THE DNINFO FILE 

5s OPENS THE SEG FILE 
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EXPLODE «s¢ADDITIONAL INFO 


INITIAL EX PLOOE oOuUuUTPUT 
IF MONITOR THEN ; 
MONITOR 
[DEPENDING] 
TFILEREC 
TOOT 
IF FILE LIMITS THEN 
FILEsLIMITS CRESERVED wORD) 
TINTGR FOR FILE LIMIT. TABLE sBOUNDs sURS=BINARY LEN=3 LIT=BINARY BOUND: 
FOR EACH FILE IN FOITs« TABLE THAT KAS FILE LIMITS? 
TFILEREC 
FROM LIMIT (TWORD PC 9(¢8) CMP) OR CTINTGR URS=BINARY LEN#3) 
THRU LImIT (TWORD PC 9(8) CMP) OR CTINTGR URSsBINARY LEN23) 
TOOT 
PROCEDURE DIVISION 
IF DECLARATIVES THEN 
DECLARATIVES 


PROCEDURE BUILDs«SPECTALsREG3 
DIGIT DSEGO 


REGISTER - LENGTH ADR DATATYPE 
See dbocnneee es sete aeeee eee baeeseses 
Swi i 0 4BIT UNSIGNED 

‘ 

a 
SwW8 i ? 4BIT UNSIGNED 
TALLY 5 8 4RBIT UNSIGNED 
DATE 5 i3 4BIT UNSIGNED (JULIAN YY DOOD) 
TIME 7 18 4elt UNSIGNED CHHMMSST TeTENTH) 
TODAYS@"DATE 6 25 4BIT UNSIGNED CMMDDYY) 
TODAYS*NAME 18 31 8RBIT ALPHA 


PROCEDURE CREATEs»TWORDC OCCUR)? FORMAL OCCUR VARYINGS 
FOR USE RY FILEesLIMITS & FORWARD REFERENCES OF? 
1, vALUE UF Ip IS DATANAMEs 2, ACTUAL KEY IS DATANAME, 


PROCEDURE USE «eSYNTAXS3 
TO SYNTAX USE STATEMENTS! 
LeVERIFY FORMAT 
2eCHECK FUR DUPLICATES ASSIGNED TO A FILE 
3eVERIFY HARDWARE 
WeVERIFY LABEL RECORDS CLAUSE PRESENT FOR A FILE 
~SePLACE IN THE FPR TAILER THE EXPLICIT LABEL OCURS OF 
THE USE RTNES FOR EACH FILE 


PROCEDURE MAKeDNINFOs TABLES 
Le READS AS MANY DNINFO ENTRIES INTO THE ONTe TABLE AS WILL 
FIT AND UPDATES ONT «¢TABLEsOCURGMAX. 
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PROSYN PROCEDURE DETAILS 


eam ane tana aeeecr®n nae naasna 


ROUTINE PUTeFROMs INPUTS 
MOVES TOKENS FROM ALLOFILE BUFFER TO CODEFILE BUFFER 


PROCEDURE PUT«¢OPERAND(A)$ FORMAL A VARYING} 
OPERAND=LITs»TINDEX»TWORD*»TCSPLsTCSPR*OR TFILEREC 


PROCEQURE FILLLOP«STACK VARYING 
MOVES NEXT TOKEN INTO NEXT AVAILABLE OPERAND STACK POSITION 


PROCEDURE GETeIT VARYING3 
BREAKS OUT NEXT TOKENs TYPE & MOVES TOKEN TO OPERANDs STACK IF 
AppLIcABLE. IF SUBSCRIPTED TwORn TOKENs SUBSCRIPT 
TOKENS ARE PuT INTO ADJACENT OPERAND*sSTACK ENTRIESs 12/70 KH 


PROCEDURE HOMOGENEDUS+LITCAsC) VARYING? FORMAL CAsC) VARYINGS 
CHECKS A LIT TO SEE IF COMPRISED ENTIRELY OF SAME CHARACTERe 


PROCEDURE READsWRITEs+SYNTAX VARYINGS 
TO SYNTAX READ WRITE RELEASE RETURN SEEK 
ADVERBsCNTRL OF FORMAT 
C1) IS KEYWORD VALIO FOR THE VERB 
(3) PRECEDENCE OF THE KEYWORD 
(3) WHAT IS EXPECTED TO FOLLOW 
NEEQ TAKES ON 1 OF 6 VALUES DEPENDING ON THE ITEM RECEIVED ON 
INPUT 
A TwORD MUST FOLLOW 
A TwORD OR INTEGER MUST FOLLOW 
A TWURDsINTEGGR OR APPROPRIATE KEYWORD MUST FOLLOW 
A RESERVED WORD@VERB OR APPROPRIATE ADVERB MUST FOLLOW 
A VERB MUST FOLLOW 
AN APPROPRIATE KEYWORD MUST FOLLOW 


Mew N eo 


A™ OPERAND STK PTR’ TO TFILEREC 

B@" OPERAND STK PTR TO FROM/INTO DATA NAME 

C* OPERANL STK PTR TO WRITE SPACING INTEGER OR DATA NAME 
F" OPERAND STK PTR TO FILE INFOQ 


PROCEDURE WHATsGOT FIXED 
BASED ON TYPE AND KEY 
PROVIDE A CASE VARIABLE VALUE OUTER TOCONTROL 
0 = TWORD 

- TINTGR 

KEYWORD 

VERB 

EVERYTHING ELSE 


fwd — 
a e@ € 


PROCEDURE SORT« VERBS 
OuTPUT TQ GENRAT FOR SORT 
TRESWO ® SORT 


URSC1) INPUT PROCEDURE PRESENT 


TPERF OF INPUT PROC IF PRESENT 
TFILEREC OF SORT FILE 
WITH URS(C2) = QO OS/DP CEND) 
z i PURGE 
=z 2 RUN 
SERIES OF 
TRESWD = ASCENDING/DESCENDING 
SERTES OF 
TWORD KEYS 
TSTATESTOP 
ONE OF 


TFILEREC = USING FILE 
WITH URSC?) Of LOCK 


= RELEASE 
22 PURGE 
OR 
TPERF oF INPUT PROCse CDUPLICATION) 
ONE OF 
TFILEREC = GIVING 
WITH URS(2) OFLOCK 
L=RELEASE OR 
TPERF OF OUTPUT PROC 
PROCEDURE OPENsCLOSE VARYING} 
VALIOseADVERBS TASLE ENTRIES 
0 NO OPEN CLOSE 
1 PURGE CLOSE 
2 REEL ° CLOSE 
3 REVERSED OPEN 
4 REWIND OPEN CLOSE 
5 ACCESS OPEN 
6 RELEASE CLOSE 
7 LOCK OPEN CLOSE 
8 WAS REMOVE OUT ON 02/01/73 
9 PUNCH OPEN 
10 PRINT OPEN 
41 INTERPRET OPEN 
12 STACKER OPEN 
13 HERE. POSSIBLY 
14 PACK POSSIBLY 
15 COOEFILE OPEN CLOSE 
16 CRUNCH CLOSE 
17 ROLLOUT. CLOSE 


PROCEDURE SETeVERB3 
VALIO SET COMBINATIONS 


(TO) 
OBJ | SUBJ 
ON t IN 


IOr t ro! 
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Ior ¢ IN 

IN | LIT2 
IN | ODN 

IN | IDI 

IN { IN 
(UP/DOWN BY) 
OBy | SUR 
In ¢ LIT’ 
IN { DN 


DN @ DNATA NAME = ELEMENTARY INTEGER 

IOI “ INDEX DATA ITEM 

IN @* INDEX NAME 

LITI" INTEGER LITERAL * NON“ZEROs LEQ 6 DIGITS 
LIT2* UNSIGNED LIT1 CCAN BE +) 


REARRANGING DONE FOR CONVENIENCE OF CODEGEN 
SETsVERB» SUBU» OBJ» [OBUs osals TSTATESTOP 


FOR BOTH FORMATS THE SUBJECT IS REPOSITIONED AHEAD OF THE OBJECTCS)s» 
“TOs "UP BY" R "DOWN BY" ARE DROPPED» AND TSTATESTOP IS ADDEN 


NOTE ™ FORMAT ENCODED IN URS OF SET VERB ON OUTPUT 
sOPTIONsSERTES.ZUNUSEDs 

« (2) « (1) es €5) é 

00 DOWN BY 

O1 UP BY -— 

10 TO 


APPROACH! le LOOK AHEAD TO "TO" ETC» COUNTING OBJECT OPERANDS» DOING 
GROSS SYNTAX CHECKING ON THE WAY 
2s SYNTAX CHECK THE SUBJECT OPERAND 
36 SET APPLICABLE OPTIONS IN URS* OUTPUT VERB* OUTPUT SUBJ 
We DETAIL SYNTAX CHECK & OUTPUT EACH OBJ 
Se RECOVER TO NEXT VERB/PAR: 


PROCEDURE PERFORM,.VERB3 
REARRANGING NONE FOR CONVENIENCE OF CODEGEN 
FORMAT 1 CVANILLA) @* NONE 
FORMAT 2 CTIMES) =“ pROP “TIMES” 
FORMAT 3 CUNTIL) = DROP "UNTILt« CONDITION SUPPLIES BOOSTOPSs THEN 
FORMAT 4 CVARYING) = DROP "VARYING" s "FROM" s "BY" SMAFTER » 
CONDITIONS HANDLED AS IN 3¢ INSERT COPIES OF OPERANDS OF 
WVARYING" & “FROM™ CLAUSES FOLLOWING TPERF © FOR INITIALIZING CODE. 


NOTE “ FORMAT ENCODED IN URS OF TPERF ON OUTPUT 
OPTION VARYING 
(2) COUNT(2) ¥#BITS 
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Q*3 Be Se VALUES 


NO TSTATESTOPS REQUIRED 


VALID PERFORM VARYING COMBINATIONS | 
"FROM" CLAUSE (VARYING O8J FROM SUBJ) 


OBJ {| SURJ 

DN ¢ LIT 
ON ¢ ON 
xDN { IN 
IN f ON 

xInN tf IDI 
IN Jf IN 

) LIT. 


w IN 


NOTE = Int | IN IS NOT PERMITTED SINCE IDI COULD NOT THEN BE 
LEGALLY INCREMENTED IN THE 'BY' PHRASE» ACCORDING To 
to . 'SET! RULESs 


"ay" CLAUSE CVARYING OBJ «ee BY SUBU) 
ObJ | SUBJ 
DN i LIT 
DN | DN 
*IN ft LIT ; . 
3s USED TO GET AUTOMATIC OuTPUT FROM CERTAIN INPUT TOKENS. 
*IN | ON 


DN = DATA NAME = ELEMENTARY NUMERIC 
eIN © INDEX NAME CREQUIRES BOTH OPERANDS SATISFY SET VERB RULES) 
IDI = INDEX DATA ITEM 

LIT * NUMERIC LITERAL 


PROCEDURE EXAMINE. VERB3 


eax INPUT «ax axe OUTPUT wee 
CaSE I EXAMINE I CaSE I EXAMINE I CASE I EXAMINE t 
I TwORD I I TWORD I I TWORD I 
I TALLYING I I REPLACING I i I TWORD=TINTGRI 
1 I ALL*LEADING I 3 I ALL*FIRSTs 1 2 + 3 I TWORD*TINTGRI 
I UNTIL FIRST I I LEADING» I ° 
I TWOROD@*TINTGR I I UNTIL FIRST I 
I TWORD“TINTGR I 
I REPLACING I I BY I 
2 I BY I I TWORDSTINTGR I 


I TWORNSTINTGR I 
In ADDITION TO eis al ABOVE A FIGURATIVE CONSTANT MAY RE USED. 
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CODEGEN PROCEDURE DETAILS 


REFERENCES TO FPB TRAILER OCCUR IN 

Le DATSYNSFIXUPsFILEeSIZES 

26 EXPLONEtUSER ROUTINES 

30 CODEGENItIOVERBS ASSOCIATED wITH FILES 
4e FIXUPISBUILD FPBS 


PROCEDURE SEF eTOKENsOUTS 
Le CALLED ONLY BY PUTs TOKEN, 
2s CALLED ONLY IF TRACE.CODEGEN. 
30 MONITORS ON LINE PRINTER TOKENS IN CODEBUFFER CA MISNOMER) «. 
THE OUTPUT BUFFER FOR THE SEGFILEs 
4s USED FOR DEBUGGING» 


PROCEDURE SEE eTOKENe IN 
le CALLED BY ANYONES 
2¢ CALLED ONLY IF TRACE sCODEGENs 
3¢ MONITORS ON LINE PRINTER TOKENS IN OPERAND STACK THAT ARE 
IN INPUT FORMATe 
4s USED FOR NERBUGGINGs 


PROCEDURE FORCE sSEGFILECT)3 
le FINISHES OFF THE CURRENT SEGFILE BUFFER WITH TEOQF OR TEOBe 
2¢ SETS UP FOR NEW BUFFERe 


PROCEDURE PUTeFROMsINPUTS 
te MOVES TOKENS FROM ALLONFILE SUFFER TO CODEFILE BUFFERs 
2¢ CALLED BY GETsITs 


ROUTINE FILL +UPERANDsSTACK3 
1s CALLED BY GETeITe 
26 MOVES INPUT TOKEN TO OPsSTACKCAODSIJ« 


ROUTINE GET«IT3 
is GETS NEXT INPUT TOKENs - 
‘26 MOVES TOKEN TO OPsSTACK IF APPLICABLEs 


PROCEDURE GETsOQPERAND; 
te CALLS GETeIT TO PLACE TOKEN IN STACKe 
2e IF TOKEN IS A TwWORD AND SUBSCRIPTED THEN 
MOVE SUBSCRIPT TOKENS INTO ADJACENT OPsSTACKS ENTRIES. 


PROCEQURE GETe¢TRASH(LsSCLaSoF sAd3 
le Lb LENGTH IN UNITSs 
26 SCL SCALE. 
36 8S SIGN CWseSatsK deo 
Qe F FORMATse 1 FOR 8BITe O FOR 4BITe 
Se A ASCII « 1 FOR ASCII» 0 FOR EBCDIC.s 
66 BUILDS TwORD TOKEN IN OPsSTACKCAODS)>« | 
7+ TOKEN HAS INLINE COP FOR NEXT AVAILABLE TRASH AREAs 
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Be CALLER MUST EITHER SAVE AOS BEFORE CALL OR USE LOI AFTER, 


PROCEDURE MAKEsTWORD ¢ WRELADRe Le SCL oSoFsA)3 
LIKE GET.TRASH & GET.«CcePOOL BUT YoU TELL IT THE ADORESS 
IF A21 THEN ASCIT ELSE EBCDICs IF Fel THEN 8 BIT ELSE 4 BIT» 
BUILDS TwORD IN NEXT AVAIL OPERAND STACK LOCATION. 
CALLER MUST SAVE AVAILsOPsSTACK BEFORE CALLING THIS PROCEDURE. 


PROCEDURE FIND sPOWERCN)3 
le FINOS THE NUMBER OF BITS NECESSARY TO HOLD A GIVEN NUMBER 


PROCEDURE CHANGESIGNCA)3 
1. EMITS CODE TO CHANGE SIGN OF AN OPERANDs 


PROCEDURE BUILD.INT CNEGeLIT »s FORMAL CNEG*LIT) VARYINGS 
PUTS TINTGR IN UPsSTACKECADS) 
IF NEG = 1 MAKES IT A MINUS LIT 
LIT MUST BE A HEX BIT STRING IsEe 73 = 8C(4)738> 


PROCEDURE FIXUPsNCNsNSEG*NDISP)3 FORMAL CN» NSEGaNDISP) VARYING 
FIXES UP "N" FOR MULTIPLE MOVES & COMPARES 


PROCEDURE RELATIVE*INDEXCI) VARYINGJFORMAL «VALUE I VARYINGS 
DETERMINES IF AN INDEXED TworpD HAS RELATIVE INDEXING» 
E.Ge A € Is Jeis K*3 ) 
EXPECTING EITHER TINDEX OR TINDEX FOLLOWED BY SIGNED TINTGR = = 
=“ = UP TO 3 INTERMIXED SINGLES OR PAIRS 


PROCEDURE REL+INDEXsCODE (123 FORMAL+eVALUE I VARYING3 
KOMP 
EMITS CODE TO RESOLVE RELATIVE INDEXES AND COMPRESSES OPsSTACK 


PROCEDURE MOVESIGNCASB)S a 
Le CALLED BY MOVEGEN FOR NUMERIC TO NUMERIC MOVESs 
2. SENDING AND/OR RECEIVING IS J OR K SIGNe 
3+ SENDING MAY BE A LITERAL® 


PROCEDURE PREPARE «LITCKoA2S 33 
ie K 2 TS K#SIGNs O IS OTHER. 
26 A 12 IS ASCII» O IS EBCOIC. 
36 S 1 18 MINUSs O 185 PLUSs 
Gs CREATES A LITERAL OF PLUS OR MINUS AND PUTS LIT TOKEN 
INDEX IN Le 


PROCEDURE SCALELITCAsB)3 FORMAL (AsB) VARYINGS 
AZOPERAND «STACK ANDRESS OF INTEGER OR REAL LIT TOKENs 
B=OPsSTACK AOR OF TWORD OR INTEGER OR REAL LIT TOKENs 


ERO EOURE REALLY +SCALELITCAs Fal GTHsF sSCALE*BeSIGNED)S 
le A IS INDEX OF LIT TOKENs 
26 SCALES A LITERAL ACCORDING TO FeSCALE*® WILL RIGHT TRUNCATE. 
OR ZERO FILL SCALE IF NECESSARYs 
36 LEFT TRUNCATES THE LIT ‘IF NECESSARY. 
4s CALLER MUST EITHER SAVE AOS BEFORE CALL OR USE LOI AFTER, 
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Ss ORIGINAL TOKEN MAY BE 4 OR 6 BITe 

66 FINAL TOKEN FORMAT IS 4 BITs 

7s IF LIT IS SIGNED AND SIGN IS 8BIT MINUS OR 4BIT GOS THEN ~ 
SIGN ITS PRESERVED ELSE OROPPEDs 


PROCEDURE HOMOGENEOUS +LITCAsC) VARYING3. 


CHECKS A LIT TO SEE IF COMPRISED ENTIRELY OF ee CHARACTER. 


PROCEDURE EslLIlTsTOsAsLITCEY3 


TRANSLATES Egpcole LITERAL INTO ASCII LITERAL IN NExT AVAIL OpFRAND, 


PROCEDURE pO.EnNIT (MOI) VARYINGS FORMAL «VALUE MOI VARYINGS 
PROCEDURE MUVEsDIGITS3 


SINCE REPEAT OPERATOR HANDLES UP TO 16 DIGITS AT A TIME 
THIS PROCEONURE WILL HANDLE THOSE DATA ITEMS EXCEEDING 16 OIGITS 


END MOVE sOIGITS3 
PROCEDURE RUILD.sMASKS3 


DETERMIWES THE MASK FOR AN EOTE 

PLACES THE MASK IN THE OPERAND STACK BEGINNING AT AQS 

IF A DATA ITEM USES ALL POSSIBLE EDIT SYMBOLS IT WOULD APPEAR AS3 
#"67890043867952 

THE MASK STRING IS DETERMINED BY THE ALGORITHM? 

INMOMIN]) CAT MVDCLOGICALSIZE"SCALE™ 1) CAT INUCDOPT) CAT MVOCSCALE@1). 


END BUILDsMASK3} 


Sebo nvnseeseeeaoeoveesevseseescseseeseseseeseaneteeseavedvseveseeeoetbsevneseeeoseeeeseeneens ss 


IF DATA ITEM IS A J OR K SIGN THE FOLLOWING STEPS ARE TAKEN 
le GET«TRASH IS CALLED = TO RESERVE DEST SPACE FOR A MOVE 
2e MOVEGEN “™ WILL CHANGE SIGN TO S+#SIGN 

MONITOR wILL DETERMINE IF AN EDIT IS NECESSARY 

IF SO IT WILL? : ; 
1s CALL GET* TRASH * TO RESERVE DEST SPACE FOR AN EDTE 
26 DETERMINE THE MASK FOR THE EDTE 


END DOsEDITS 


PROCEDURE MONITERCMONITER*OPERANDe INDEX )3 


MONITOR CODING FOR DATA NAMES OR INDEXES 

INPUT! ALLONFILE FROM PROCEDURE SYNTAX CHECK 

OUTPUT! SEGFILE °° OPERATORS USED! CAT N*#® COPXI*OPND1¢006*0PNDN 
EO0TE OPNDisCOPXis MASK 

EXAMPLES OF MNNITOR AT EXECUTION! DATAVALUE = *XXXXXXoeee eo KXXKXXX 
GOPHER/HOLE (55609) © XXXXexXXX 

TOKEN FROM ALLONFILE? 

TYPE URS COPX BASIC COP FACTORS PCINFO ONFLG JUST BWZ MsADOR MaLGTH 


(6) €4) (12) (53) (80) (74) €10) (i) %€2) €24) (6) 
| # * * OPERAND STACK * * 

BEFORE GETsTRASH AFTER GETs«TRASH 

Pe MOI Keane oanan { MOT 

® r ® x 

* TWORD * * TwORD * 

* * * * 

ge ewesawtanewn t AOS gReeaenenecaneee | { O! 

* , * * * 


* = * TWORDOD * 
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fee mewusennnr tecaneewenenns | ADS 
x * * * 
* * * * 
MONITOR CODING FOR PARAGRAPHS AND SECTIONS 
INPUT? ALLONFILE FROM PROCEDURE SYNTAX CHECK 
OuTPUT: SEGFILE |" OPERATORS USED? CAT N*COPXIs OPND1406ees0PNNN 
INCL COPX 
EXAMPLE OF MONITOR AT EXECUTIONS PARAGIRAFFE (CXXXXXX) 


TOKEN FROM ALLONFILES 


TYPE URS LABEL FLAGS SEG # 
(6) (4) (5) (7) 


FOLLOWED BY TNNLIT?3 
TYPE URS SCALE LENGTH LITERAL 
C6) ¢€4) (8) (6) (30 MAX) . 


PROCEDURE SZsERRe2COEST)3 FORMAL DEST VARYING3 
USED FOR ACCUMULATING SIZE ERROR INFO BY SETTING OVERFLOW TOGGLE FOR 
WADD A TO Bs Bi» B2e0eeBN ON SE She” 
SE2 IS TuRNED OUT FOR ADD A TO BeeedDD A TO BNO] 
SE3 IS TURNED OUT FOR ADD A TO BNe 

PROCEDURE CHECK«REMAIN? 
/*x GRIGINALLY THE REMAINDER WAS TAKEN DIRECTLY FROM THE DIVINEND 
FIELD AFTER THE DIVIDE FOR THE QUOTIENT CCAUSE THATS WHERE THE 
MACHINE LEAVES IT)« HOWEVER» IF THE QUOTIENT IS TO BE ROUNDEDs THE 
REMAINDER CAN CHANGE SINCE 1 EXTRA DIGIT OF ACCURACY IS REQUIRENs 
EG 3 
DIVIDE 16 INTO 24742 GIVING PC99V9 1564 REMAIN = 08 
OIVIDE 16 INTO 247.42 GIVING PC99V9 ROUNDED 15.45(0465) REMAIN = O 
THEREFORE WE NOW 00 2 DIVIDES IF THE QUOTIENT IS To BE ROUNDED .« 
ALSO» ALA 83500 COBUL 3 
"THE REMAINDER IS CARRIED TO THE SAME DEGREE OF ACCURACY AS NFFINED 
IN THE PICTURE OF THE QUOTIENT AND ALL EXTRA POSITIONS ARE FILLED 
WITH ZEROS." «/ 


PROCEDURE SET*¢TRASH(CA) VARYINGS FORMAL A VARYINGS 
STRED BY ARITH SEXP OQuT OF GASeeeTAKES CARE OF NuTTy COBOL PC OF 9SPP 8 
PPQOGseeeGETS CORRECT SIZE AND CREATES & BIT S*«SIGN TOKEN 


PROCEDURE ARITHsEXPRESSION VARYING3 
RETURNS OPseSTACK INDEX OF OPERAND CWHICH MAY BE A TRASH AREA FOR 
INTERMEDIATE RESULTS)« ARITH EXPS ARE DELIMITED BY A RESEVED WORD OR 
TROGSTOPe THE BEGINNING OGPERAND FOR ARITHeEXP TO LOOK AT IS IN 
LASTseOPERANDsINDEX CSET BY FILLsOPERANDsSTACK) «6 


PROCEDURE IQceEMIT.SFIXeMVN CLAPLAD3 
LA =OPND STACK PTR TO MSG TLITFIX LITERAL 
LA =OPND STACK PTR TO MSG AREA 


PROCEDURE RUILOC4BITsLITCITEMALIT+ TOK) 
FORMATS A 4BIT TINTGR CUNSIGNED UNLESS PASSED A MINUS FIXED ITEm) IN 
OPERAND STACK» POINTED TO BY PASSED LIT+«TOK 
MAXIMUM OF 6 DIGITS = USED PRIMARILY BY INDEX*®NAME HANDLERS 


100 


PROCEDURE ITUseFILEsINFOCRECeNUMsSTKePTRORW)3 
RW O= READ FILE 
l= wRITE FILE 
RECs«NUM= FPS NUMRER 
STK»sPTR= PLACE IN STACK FOR INFO®NOT POINTER 


PROCEDURE IUVERBS3 
PROCEDURES FOR ITO STATEMENTS WITH FILE REFERENCES 
OPEN*CLOSEsREADsWRITE*SEEK*SELECT*CONTROL® SORT 
RETURNS RELEASE j 


PROCEDURE JOeBUILD+PRINT3 
NOTE IOVERRS GLOBAL A IS PTR TO FILE REC 
B IS PTR TO TwORD OR TINTGR 
THAT SPECIFIES SPACING VALUE ™PROSYN PROVIDES A DEFAULT 
OF BEFORE 1 LINE * ALSO ALL LITS ARE CONVERTED TO THEIR 
24 BIT BINARY EQUIVALENT IN PROSYN 


PROCEDURE WHATsISe¢SPACING BITC4YS 
DETERMINE SPACING VALUE FOR COMM TO PRINTER 


PROCEDURE TO.SET«ID3 
GEN cant Yo SET FPB FILE ID 
CODE EMITTED 
MVN COMMeLIT*COMMsMSGs+AREA 
CUMMCACCESSé¢F PBS COMMeMSGeAREA READ FPB 
MVA PACKel De FPB.PACKs1ID 
MVA FILE sNAMEsFPRGAREA 
MVN COMMsLIT»COMMeMSGsAREA 
COMMCACCESS«¢F PB) s*COMMsMSGeAREA WRITE FPSB 


PROCEDURE GENeFILE*LIMITs¢RTNESS | 

TO GENERATE FILE LIMIT SAVE ANO CHECK RINES © 
A “FILE LIMIT" VERB IS OUTPUT FROM DATSYN FOLLOWED BY AN INTEGER 
ARRAY BOUND AND TFILEREC AND ALL FILE LIMITS 
FOR EACH FILE 
TWO RTNES ARE EMITTED AS NEEDED® 1 FOR SEQUENTIAL FILES AND 
1 FOR RANDOM ™ TO CHECK THE FILE LIMITS 
THERE IS A GENERAL FILE LIMIT wORK AREA RESERVED AND 
1 SPECIFIC AREA FOR EACH FILE wITH FILE LIMITS 
WHEN A LIMIT IS TO BE CHECKED THE FILE AREA IS mOVED TO 
THE GENERAL AREA 
INCLUDED IN THE AREA ARE 
is A 6 DIGIT FPB NUMBER 

USED ON SEG FILES FOR POSITIONING 
2a A 6 DIGIT FILE LIMIT INDEX INTO AN ARRAY OF ALL LIMITS 
3a A 6 DIGIT RECORD COUNT/ACTUAL KEY 
ws A 1 OIGIT OPEN FLAG 

QO= NOT OPEN 

FOR EACH FILE A RTNE IS EMITTED TO. "CAPTURE® LIMITS AT OPEN 


THE AREA SET ASIDE FOR EACH FILE DEPENDS ON ACCESS? 
RANDOM 3 
(6) FILE LIMIT INDEX 
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(6) RECORD # 
C1) OPEN BOOLEAN 


SEQUENTIAL? 
(6) FILE &¢ 
(6) FILE LIMIT INDEX 
(6) RECORD # 
FILE LIMITS STATEMENT CREATED FROM FILES WITH FILE LIMITS 
THE ORDER OF THE STMT IS! 
CL)VERB 5022 
C2TINTGR LEN=3eSCL=0sFOR=8 © BINARY AMOUNT OF SPACE NEEDED FOR THE 
ARRAY CA LIMIT IS A FROM OR THRU VALUE)@= #0F DIGITS 
(3)N COMBINATIONS OF 
TFILEREC OF FILE ANO 
M COMBINATIONS OF 
TWORD/TINTGR FROM LIMIT) 
TWORD/TINTGR THRU LIMIT 
CTINTGR CONVERTED TO BINARY VALUE*LEN23sFO0R28) 
(4) TooT 


PROCEDURE CHNG+TOsINDEXEDS 
TO CHANGE FLeARRAY FROM A NON SURSCRIPTED ITEM 
TO AN INDEXED ITEM WITH PROPER FLAGS AND FACTORS 


PROCEDURE EMITsRANs CK eRTNI 
TO EMIT CONE TO CHECK FILE LIMITS ON A RANDOM FILE 

CODE GENERATED IS 3 
OFL CO) 
ZRO OPENsFLAGs=eL2 . 

Li CPN END*LIST»FROM CINDEXI]sNEQeL3 
ZRO REC#SEQLsL2 
OFL¢1) - 

L2 xIT 

L3 CPM L4eREC#*>LSS*FROMCINDEXIJ*GTR*THRUCINDEX)20 
XIT 

L&4 INC 12s INDEX 
BUN Li 


PROCEDURE EMIT.SEQseCKeRTNI 
TO GENERATE THE CODE FOR CHECKING SEQUENTIAL FILE LIMITS 


SEQUENTIAL FILE LIMIT CHECK ROUTINE CODE 


CPN REC#eFLeARYCINGEXJsLEQ +13 REC# TO THRU LIMIT 
INC FLeARYeENTRYeLEN® INDEX THRUSBUMP TO NEXT FROM 
CPN ENDsLISTeLIT»FLsARYCINDEXIJsNEQs #11 EOL TO FROM 


CAT 26 FILE sMSGeAREAPVERBOFPR#ZADVERB @"POSN TO EOF 
MVN ENDaLISTelLits REC# 

COMM 

XxIT 


Li MVN FLsARRAYCINDEXIJsRECH REC# OF ARY TO FILE LIMIT WORK AREA 
CAT 3eF ILE sMSGaAREASVERBAFPB RP ADVERB*REC# OF FL WORK AREA 
INC FLsARYsENTRYSGLENs INDEX 
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L2 COMM FILE «MSG.AREA 
L3 xIT 


PROCEDURE I0-SORT3 
OUTPUT FROM SORT? 


MVN OPENeoLITs MSGsAREA FIRST 5 INSTRUCTIONS PRESENT ONLY IF 
CUMM MSGeAREA INPUT PROCEDURE SPECIFIEDs OPEN ANN 
ALTER NANOR*ACON PRESENT IF PROC INDEPENDENT OVERLAY 


NTR INPUT*PROCEDURE cLost IS FOR SORT FILE 
MVN CLOSteL IT*#MSGeAREA 
COMM MSGe«AREA 


MVN LITs KEYsTASLE SORT KEY DESCs TO TRASH 

MVN LIT* SORTeINFOs TABLE OTHER SORT INFO TO TRASH 

MVN TLITFIX*#NSGeAREA SORT COMMe LIT (CTO SORT KEY INFOQ) 

MVN TLITEIxXsmMSG,AREA SORT«KEY pEScC TRASH AnpReIN AND OuT FILES 
COMM MSGeAREA 

MVN OPENeLIT»sMSGesAREA Last 5 INSTRUCTIONS PRESENT ONLY IF 

COMM MSGsAREA OUTPUT PROCEDURE SPECIFIED 

ALTER DANDR*ACON PRESENT IF PROC INDEPENDENT OVERLAY 


NTR OUTPUT PROCEDURE 
MVN CLOStsLIT»MSGeAREA 
COMM MSG-eAREA 
PROCEQURE TWORDs TINDEXCWoT) VARYING 
USED BY INDEX HANDLER KOMP 
APPKOACH ™ SUBTRACT 1 FROM w GIVING Ti 
MULTIPLY T1 BY I*S FACTOR GIVING Te 
Ww NOW POINTS TO T2e I IS UNDISTURBED 
PROCEDURE TIWDEX«TINDEXCI#J) VARYING3 
USED BY INDEX HANDLER KOMP 
APPROACH ™ DIVIDE J BY ITS FACTOR GIVING Tl 
MULTIPLY T1 BY I™S FACTOR GIVING Te 
I NOW POINTS TO Te J IS UNDISTURBED 
ALSO UPTIMIZES CASES WHERE I"S FACTOR ITS A MULTIPLE OF 
J*S FACTOR AVOIDING DIVINE CODE 


PROCEDURE DECLARATIVEHOUSEKEEPINGS 
NECLARATIVES CAUSES PARITY AND LABEL USE RTNe ANALYZERS 
TO BE EMITTED FOR ANY FILE THAT 
1+ DOES NOT HAVE A SPECIFIC USE RTN ASSIGNED 
96 FOR PARITY © ONLY HARDWARE DEVICES THAT RETURN PARITY 
36 FOR LABEL ©@ TAPE ONLY 
THE ANALYZER DETERMINES DYNAMICALLY HOW THE FILE WAS OPENED 
AND CAUSES THE APPROPRIATE USE RTN TO BE EXECUTED 


PROCEDURE EXAMINE 
THIS PROCEOURE WILL BE THE ONE CALLED IN THE EXAMINE IF SET 
ON THE DOLLAR CARDe REQUIRES THE EXAMINE S*0P IN THE INTERPRETER 


KEKE TYPES OF EXAMINE KEKKAKEKERRER 
alte EXAMINE DATANAME eae 
TALLYING CALL) CLITERAL"1) CREPLACING BY LITERAL#=21 
CLEADING) COATANAME 1 ) DATANAME #2) 


CUNTIL FIRST) 
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REPLACING CALL) (LITERAL ™3) BY (CLITERAL@4) 
(LEADING) CDATANAME=3) (DATANAME®4) 
(FIRST) 


CUNTIL FIRST) 


PROCEDURE EXAMINE se RYeCOMPARES3. 
THIS PROCFDURE WILL BE THE ONE CALLED IF THE EXAMINE IS NOT SET 
ON THE NOLLAR CARD. NOES NOT REQUIRE THE EXAM S#OP IN INTE*PRETER 


PROCEDURE SURSCRIPTEND.FIELD3 
CALCULATES THE BEGINNING ADR IF A SUBSSCRIPTED ITEM IS BEING ExAmINED 
MULTIPLYS THE ITEMt:S FACTOR Times THE VALUE IN THE SUBSCRIPT AT 
EXECUTION TIMEs THIS RESULT MINUS THE FACTOR IS THE BEGINNING ADR 


PROCEDURE FIRST-«OPTIONS 
HANOLES THE EXAMINE A REPLACING "FIRST" 8B 


PROCEDURE LARBEL»sPROCESSORS 
FUNCTIONS = GENERAL 
1. FIXUP LABEL TABLE FOR THIS OCUR CWHICH IS MAINTAINED BY THE 
GLOBAL COUNTER @ EXPLICITsLABEL 

2e EMIT TERMINAL“PARAGRAPH*OF*PERFORM*RANGE EXIT CODE IF REQUIRED | 

36 IF EXPLICIT*GO"TO*PARAGRAPH EM{T GOPAR OR BUN CODE 

46 CALL MONITOR CODE GENERATOR IF REQUIRED 

Se CHANGE TXPAR/TXSECN TO TXLABEL 
= ee es = © @ WHEN CHANGING SEGMENTS 

6e EMIT @FALLeTHRUY CODE CRUN 

7s FIXUP PSEUDO=CODE DICTIONARY & TSEGLINK 

Bs EMIT TSTOP» WRITE CODESUFFER ONTO SEGFILEs EMIT NEW TSEGLINK 
oes es aw we em MISC 

9s EMIT “SYSTEM"™ EXIT FOR TERMINAL PARAGRAPH OF A USE SECTION 

10, SET FIRST.»EXECUTABLE FOR FIRST EXPLICIT LABEL 


EXAMPLES OF REQUIRED CODE FOR CONTROL@=TRANSFERRING OPERATIONS 
FIXED SECTION O. OVERLAY SECTION 50. 


*% 


Pie * ALTROI4e16) 
* ALTRCI6s+4+6) 
* GOPAR(CO) 

PERFORM I2.e x Ile 
ALTRCIOe12) * ALTER 14 TO 15.6 
PERF CK1sOVERLAY) * ALTR°O14s16) 

* 

GO TO 13. ® ALTER I6 TO I7s 
ALTRCIOs13) * ALTRCI6s18) 
BUNCOVERLAY) « T2s 

* se = 
P2e« GO TO P4a | * PXITCKI) 
-GOPARCP2). « IT3e 
*® an ee 
P3. GO TOs . * [46 GO TO 166 
- GOPARCP3) P3 INITIALLY * GOPARCI4) 
oF COMMCABEND) POINTS TO #F « [5 
P4s ALTER P3 TO 13. * + 2s 
ALTRCP3s +A) * 16s GO TOs 


oA 


GO 
«8B 
oC 


°D 
FOR 
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BUN(+R NEXT SEQL SOURCE® GOPARCI6) INITYALLY 
ALTRCI0013) * 0G COMMCABREND) POINTS To +6 
BUNCOVERLAY) * 176 
TO Pl» P4, I7 DEPENDING ON Xet LAST SOURCE STATEMENT 
GOTD(COPXs Ie 4D eP1ePdr tC) * IN THIS SECTION 
ALTRC1OsI17) * oes 
BUNCOVERLAY) * BUNC*E) NEXT SEQL SOURCE 


NEXT SEQL SOURCE « 
EXAMPLES OF REQUIRED CODE SEE LABEL sPROCESSOR 


PROCEDURE GOTUDEP C€A)3 FORMAL A VARYINGS 


SPECIAL STACK ENTRY * INTERNAL TO GOTOOEP ONLY * NEEDED Tn EMIT 


PROCEDURE PERFORM 
VALIOQ PERFORM VARYING COMBINATIONS & IMPLIED OPERATIONS 
NOTE @ wHERE INDEXING IS uUSEnNs SET«GEN IS CALLED f@yY PERFORM 


OBS 
DN 
DN 
DN 
IN 
IN 
IN 
IN 


OBJ 
ON 
DN 
IN 
IN 


DN 
IN 
Iv1 


WVARYING SUBJ FROM 08J« EQUIV *SET SUBUY TO OBJ 


SUBJ 
LIT MOVE . 
DN MOVE * IN THESE CASES* IF ANY AFTER CLAUSESs 
IN SETsTO * ALL "FROM" SUBJ"S MUST BE SAVED INITIALLY 
DN SET.TO. *® IN CONSTANT POOL. 
IDI MOVE * NOT REQUIRED FOR LITERAL SUBJ S OR 
IN SETsTO * WHERE GNLY SINGLE VARYING CLAUSE. 
LIT SETsTO 
*VARYING SUBJ « « « BY ORJ* EQUIV *®SET SUBJ UP BY OBJe 
SUAJ | 
LIT ADDCLITsON)3 
DN ADDN CON DN)D3 . 
LIT SET.GENCUPSBY-LITsINDS 
DN SET«GENCUPSBY-DNe IN)? 
“DATA NAME 
@INDEX NAME 


“INDEX DATA ITEM 


PROCEDURE SETsGENS | | 
VALID SET COMBINATIONS & IMPLIED OPERATIONS 


O8J 
ON 
Io!t 
IvI 
IN 
IN 
IN 
IN 
IN 


(TO) 
SUBJ 
IN OIVCFsINeDOND3 INCLICON)S 
Io! MOVE 
IN MOVE . 
LIT PRE*DEC1 LITS PRE“MULT BY FS MVNCNEWLITSIND3 
ON SUBC1Ls*sONsT)32 MULT OP s Ts IND3 
1IOT MOVE 
IN MOVE #C(FACTORS EQUAL) 
INN DIVCFFsINNesT)3 MULTCF a To IND 


CUP/DOWN RY) 


OBJ 


SUBJ 
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IN LIT PRE@®MULT LIT BY FS INC/DECCNEWLITSIN)DS 
IN DN MULTCF sONe TIS INC/DEC/CT®INDS 


DN "DATA NAME 

IOI INDEX DATA ITEM 

IN “INDEX NAME 

INN "INDEX NAME HAVING DEFFERENT FACTOR 
LIT "INTEGER LITERAL 


PROCEDURE SEND.RECEIVES 

A @ MESSAGE 

B = FROM/INTO IDENTIFIER 

C = QUEUE NAME 

SEND JO") CFROM I9"2) TO ID" 3/LITERAL 
ON INVALIO@“REQUEST $1 
ON Q"FULL $2 

RECEIVE TO*1l CINTO IN"2)7 FROM ID@*3/LITERAL 
ON INVALID®*REQUEST $1 
ON Q*EMPTY S82 
MOVE T0"2 TO I0"1 IF FROM 
MOVE COMMseLIT»MSG AREA. 
MOVE ID"3%s TRASH IF NOT IN SEG O OR IS LITERAL 
MAKP ID*™3/TRASH*MSG AREA : 
MAKP ITD*2sMSG AREA IF NOT IN SEG O 
COMM ; 
MOVE ID*1sID#2 ; IF RECEIVE INTO 
FETCH PRESENT IF CONDITION OPTIONS 
CPN lsMSGaNEQs tA 
Si 

aA CPN 2aMSGseNEQstB 
S2 

a=) 


PROCEDURE FIXUP«sCATsLEN 3 
TO UPDATE THE LENGTH OF THE RECEIVING FIELD ON A CAT 
THE LOCATION GIVEN IS THAT OF N IN THE INSTes AND 
THE RECEIVING FIELD HAS AN IN LINE COP 


PROCEQURE ALTERED«LIT FIXED3 
TO SET LENGTH OF LIT TO PROPER SIZE*s CHANGE TO TNNLIT 
AND RETURN THE LENGTH 
LIT IS IN & BIT FORMAT 


PROCEDURE ALTERED» WORD FIXEDS 
TO SET LUGICALTIZE » ZERO COPX IF NECESSARY » CHANGE REAL TO INTEGR 
AND RETURN LOGICALSIZE 


PROCEOURE XsQUALIFIESCI) VARYINGS 
TO DETERMINE WHETHER AN GPERAND QUALIFIES AS AN OPND OF A CAT 


PROCEDURE I0e¢ADDsTOsCAT3 
TO CONTINUE CAT 
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PROCEOURE OPTIMAL.OISP FIXED3 
TO DETERMINE WHETHER AN INTERMEDIATE TRASH AREA REQ ON DISPLAY 


PROCENURE TOeBUILD+eDISPeCOMM3 
TO BUILD A DISPLAY COMMUNICATE 
A IS A PTK TO THE TOKEN OF THE ITEM TO BE DISPLAYED 


PROCEOURE SEPeITEMS 
TO DEVELOPE A MOVE OF A SINGLE ITEM TO BE DISPLAYED 
INTO THE APROPKIATE TRASH AREA : 


PROCEDURE DMsVERBS3 
GENERATE CODE TO EFFECT THE MCP COMMUNICATE CORRESPONDING Th 
A DATA MANAGEMENT VERBe ENTER ON VERB TRESWDs 


PROCEDURE DOseSwITCH6;3 
INDICATES MONITOR DEPENDING SPECIFIED.» 
WILL CHECK TO SEE IF SWITCH 6 = ZERO OR IF IT!S GREATER: 


PROCEDURE MONITOR« INITIAL3 . | 
FOLLOWING PROCFDURE SETS UP THE WRITE SUBROUTINE FOR MONITOR 
CHECKS TO SEE IF MONITOR DEPENDING HAS BEEN SPECIFIED 
SETS UP THE LITERAL THAT IS MOVED To THE RECORD MSG AREA 
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DATA MANAGEMENT 


Sem CGreGenweneeeaean a 


THE OM ADDITIONS TO THE COROL COMPILER WERE COMPLETED IN OCTOBER» 
19738 THE DEVELOPMENT WAS IN 4 STAGES? 


Le UNDERSTANDING WHAT OM IS AND HOW TO USE ITs 

Ze DOCUMENTATION OF THE NECESSARY COMPILER CHANGESs 
306 IMPLEMENTATION. 

Ge TESTINGs . 


THE FOLLOWING IS AN EXPLANATION OF THE FLOW OF DATA MANAGEMENT 


CONSTRUCTS THROUGH THE COMPILERs THIS IS THE DOCUMENT THAT WAS USED 
FOR STEP 2s 


108 


DATA@BASE SECTION DECLARATIONS 


DATASET 


<LEVEL® NUMRER> <fATASET@®NAMES> DATASET DOL*NUMBER «<0DODL #> 
CRETRIEVAL/ORCERING KEY <KEY=NAME> DDL*NUMBER <DDL #> 
C<K<COMPUNENT#“NAME@®1> [L<COMPONENT*"NAME&%2>) wooed] wae 6 
SUBSET : 
“<LEVELSNUMBER> <SUBSET*NAME> SUBSET DDL® NUMBER <DDOL #> 
TO <DATASET®NAME> DOL“NUMBER <DDL #> 
CC<COMPUNENT*NAME®@1> C<COMPONENTSNAME@2>) soa dds 


FORMAT QF THE ODL=NUMBER 


THE <DDOL#> CONSISTS OF A STRUCTURE NuMBER 
FOLLOWED BY THE TIME AND DATE WHEN THE DATASET WAS CREATEDs 
THE FURMAT FOR THE DOL“NUMBER IS 2 


SSS HHtmMmMsiSsS MM/DD/YY 


THIS STRING OF CHARACTERS IS ENCODED INTO A 
A 64 BIT PATH DICTIONARY ENTRY BY MERGE 


O01 PATHsDICTs«e FORMAT BITC64)s 
O02 LOCKs«RIT BITC1i)» 
O02 MEDIAsBIT BITC1)» 
02 BEENsOPENED BITC)» 
O02 ExPLICIT.OPEN BITC1)» 
02 STR«NUMBER BITC12)» 
O2 OMeTImE BITC17)>» 

03 OMsHOUR BITCS)» 
03 DMseMIN BIT{6)s 
03 OmMsSEC BIT(6)» 
02 DMeDATE BIT(C16)» 
03 OMeMGONTH BITC4)» 
03 OmeNAY - BIT(5)s 
03 DMe YEAR BIT(7)3 


OMSTATUS REGISTER 


THE OMSTATUS REGISTER IS 6 DIGITS LONG 
AND wILL BE SET BY EACH Dm COMMUNICATE®s 
A VALUE OF ZERO INDICATES NO EXCEPTIONs 


PARSE® ADD "DMSTATUS" TO THE RESERVE WORD LISTS. 
TRANSLATE THE SYNTAX UMSTATUS (<EXCEPTION NAME>) INTO 
COMSTATUS = <LITERAL>)«6 <EXCEPTION NAME>'S ARE RESERVEN 


WORDS. 
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ONLY IN THIS CONTEXTe EACH- CORRESPONDS TO AN EXCEPTION NUMBERS 
<LITERAL > 


MERGE* ASSIGN MEMORY IN DSEGO 


EXPLODE™ EXPAND REFERENCES TO LOOK LIKE A TWORD 
AND SET CONDITIONS NAME FLAG SO DMSTATUS WILL ALWAYS BE A 
FULL RELATION IN PROSYNe THIS ALSO PREVENTS DMSTATUS FROM 
BEING USED GUTSIDE A CONDITEONs 


PARSE 


le 


WHEN DATABASE SECTION IS DECLARED 

VERIFY THAT IT FOLLOWS THE FILE SECTION AND PRECEEOS 
THE WORKING*STORAGE SECTION 

QUTPUT A DUMMY TXDN WITH LEVELSOCLIKE wWS*@SECTION) 
AND SYMBOLE"DATA#8ASE" 

SAVE THIS DAsSECTION OCUR AS A GLOBAL 

DATABASE «SECTIONS FLAG? =1 

VERIFY THE DATA@BASE SECTION TO CONSIST ONLY OF 

"Ol OSTNAME INVOKE eoe™ ENTRIES AND "DB ooo “ENTRIES 


WHEN DB ITS NECLARED 
SAVE THE NATABASE NAME 
OUTPUT THE DATABASE NAME AS A TNNLIT 


=“ OUTPUT A TXDN 


WHEN INVOKE IS DECLARED 


" VERIFY DATABASE +SECTION«sFLAG=1 AND LEVEL #01 


oe2ek &€ te 


— 6a 


Te 


OPEN #DATA*BASE/DATASETsNAMECLIKE A COPY FROM LIBRARY) . 
WHERE DATA*BASE IS THE FIRST 9 CHARACTERS OF THE DATABASE@NAME 
SCAN PAST THE O1 DATASET*NAME OF THE SQURCE IMAGE 

AND SUBSTITUTE THE INVOKING DATASET*NAME 

MARK THE SCANNED SOURCE IMAGES wITH te" 


WHEN DATASET IS DECLARED 

VERTFY DATABASE «SECTIONS FLAG=1 

PARSE THE ODDL™NUMBER 

ASSIGN AN OCUR TO FACH KEY*NAME WHERE 

LEVEL%=IF ORDERING THEN 51 ELSE 52 

MARK COMPONENT#*NAMES AS TWORD WITH "DATABASE" AS A TQUAL 


WHEN SUBSET IS DECLARED 

VERIFY DATABASE sSECTIONsFLAG#1 

PARSE THE DOL*™NUMRER 

LEVEL ’%=#53 

NELETE THE TARGET DATASET@NAME 

PARSE THE TARGET ODL*NUMBER 

OUTPUT THE TARGET COMPONENT*NAME AS THORD WITH 
MHATA*BASE™ AS A TQUAL 


WHEN END OF DATA“BASE SECTION IS FOUND 
DATABASE «SECTION FLAGt#0 


WHEN FINO/MODIFY IS SPECIFIED 
OUTPUT THE COMPONENT#NAMES OF THE SELECTION 
EXPRESSION wITH "DATA@BASE* AS TQUAL 


DICTIONARY PRUCESSING 


is NO CHANGE 


QUALIFICATION RESOLUTION 


lo ITEMS WITH LEVEL OF Si» 52» OR 53 HAVE 
SCOPE ONLY OF THEMSELVES 


Ze THE DBsSECTION OCUR INCLUDES ALL 
DATABASE ITEMS IN ITS SCOPE 


36 INHIBIT ERROR REPORTING FOR A TWORD 
WITH THE NS*«SECTION OCUR AS ITS QUALIFIER 
IF UNIDENTIFIED NAME THEN OCUR?E=0 
IF INSUFFICIENT QUALIFICATION THEN 
OCURS=LAST OF THE DUPLICATES 
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MERGE 


NOTES8 

“NO CONDITION NAMES WILL BE CONTAINED IN A DATASET DESCRIPTION 
THEREFORE THE BUILDING OF THE 
CONDITION@=NAME TABLE DOES NOT CONFLICT 
WITH THE BUILDING OF THE PATH INFO TABLE 


- 


DATAsBASE SECTION PROCESSING 


le FOR EACH 01 DATASET@NAME INVOKEsNOS=BUMP INVOKE «COUNT 


26 BASED ON THE STRUCTUREsNUMBER OF THE DOL“NUMBER 
ASSIGN A UNIQUE PATHsNO AND BUILD A CORRESPONDING 
PATH@DICTIUNARY*ENTRY IN THE PATHeDICTIOQNARY BLOCK 
ON THE SEGFILE WHICH CONTAINS THE UNTQUE ODDL*NUMBER 
CSTART THE PATHseNO AT 1) 


3@ BUILD A TABLE RELATING THE DATASET OCUR TO ITS 
KEY"NAMES ANO THETR COMPONENT#NAMES 
AND CONTAINING THE INVOKE+NO ANDO PATHeNO AND THE TARGET PATHeNO 
NOTE? IF THE TARGET DATASET OF A SUBSET IS NOT INVOKED 
THEN IGNORE THAT PATH AND ITS COMPONENTS WHEN BUILDING THE TABLE 
£eG ITS COMPONENT OCUR=0 


4s DROP ALL ATTRIBUTESCE «Ge DOL“NUMBER*s 
COMPONENT#*NAMESs ETCs) WHEN PARSING 
PATH DECLARATIONS 


5s FOR EACH DB» SAVE DATA BASE NAME CTNNLIT) IN A TABLE 
WITH ITS QCUR» DROP TNNLITs 


EXAMPLE 1 


02 STUDENTS DATASET OOL@NUMBER 38 
ORDERING KEY STUDNAMES DDL*NUMBER 71 
CLASTNAMEs FIRSTNAME De 


ALL DN ADNFILE 

TXON TXONCSTUDENTSsLEVEL#02) TXONCSTUDENTS*sLEVEL #02) 
DATASET DATASET 

DDL*NUMBER 


TINTGR(38) | 
TXON TXONCSTUDNAMESsLE VEL S51 ) TXONCSTUDNAMES»LEVEL 251) 
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DDL*NUMBER 

TINTGR(71) 

( 

TWORD TWORDCLASTNAME) | : 
TWORD TWORDCFIRSTNAME) 

) 

‘ 

EXAMPLE 2 


O02 COURSE SUBSFT DOL*NUMBER 8 
TO UNIV=COURSES DOL*NUMBER 14 
CDEPARTMENTs LEVEL) « . 


ALL ON ADNFILE 


TXON TXONCCOURSEsLEVEL#53) TXONCCOURSE*LEVEL®53) 
DDL*NUMBER . 
TINTGR(8) 

TO 

DDL*NUMBER 

TINTGROL4) 

( 

TRORD TWORDCDEPARTMENT) 

THORD TWORDCLEVEL) 

) 

é 


PROCEDURE ONIVISION PROCESSING 


GENERAL 


1s PARSE THE OM«VERBS WITH PARTICULAR ATTENTION TO 
THE RELATIONSHIP OF DATASET*NAMES AND THEIR PATHS 


2e OUTPUT THE INVOKEsNO ANO PATHsNO AS 
TINTGR TOKENS FOLLOWING REFERENCES 
TO PATH NAMES 
3. THE CTsADVERB BITS FOR THE DMeVERBS ARE ARRANGED AS FOLLOWS! 


BIT MEANING 


i DISTINGUISHES INSERT FROM STORE OR REMQVE FROM DELETEs 
2 RECREATE 


3 DMSTATUS FORMAT 
O:rBINARY 
LsDECIMAL 4 BIT 
WON EXCEPTION” SPECIFIED 
UPDATE 
MODIFY 
"1i SELECTION EXPRESSION TYPE 
O?:NEXT 
1:PRIOR 
2tFIRST 
3¢LasT 
StNEXT AND “AT CLAUSE 
S5tCuRRENT 
6rvaT’ CLAUSE 
i2 PATH TYPE 
OIKEY 
1:DaTaSET 


NOW £ 


NOTEt NO SYNTAX CHECKING WILL BE DONE 
BY MERGE FOR THE EXCEPTION CLAUSE. 
IF THE CLAUSE IS SPECIFIED IT wILL BE 
OUTPUT AS IS 
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OPEN 


~ 


OPEN UPDATE <DATABASE*NAME> 
[ON EXCEPTION <STATEMENT> CELSE <STATEMENT>])) 


CTsVERB=6 
CTsOBJECTENOT USED 
CTsADVERKS 
BIT 3 = DMSTATUS FORMAT 
OSBINARY 
TsDECIMAL 4 BIT 
BIT 4 S"ON EXCEPTION" 
BIT 5 =*"UPDATE" 
CTei=BIT LENGTH OF Dm@STATUS REGISTER 
CTe2=8ASE RELATIVE ADDRESS OF DM*STATUS REGISTER 
CT«3=BASE RELATIVE ADDRESS OF QDATA BASE NAME 
CTse4sLENGTH OF DATA BASE NAME IN BITS 


MERGE QUTPUT 


TRESWD OPEN«DM 
TNNLIT DATABASE NAME 
TRESWD UPDATE 
<EXCEPTION CLAUSE> 
le VERIFY THAT IT IS A DATABASE*NAME 
2. CHANGE OPEN TO DMsOPEN BEFORE OUTPUTCNEW VERB) 


38 LOOK UP DATABASE NAME IN TABLE BY OCUR» OUTPUT THE NAME 


CLOSE 


CLOSE <DATABASE=NAME> 
CON EXCEPTION <STATEMENT> CELSE <STATEMENT> 1) 


CTsaVERB=7 
CTseOBJECTFNOT USED 
CTeANVERA= 
BIT 3 =OMSTATUS FORMAT 
O:TBINARY 
1:DECImMAL 4 BIT 
BIT 4 2*ON EXCEPTION 
CTs1=BIT LENGTH OF OM*#STATUS REGISTER 
CTa2=BASE RELATIVE ADDRESS OF DM*STATUS REGISTER 
CTse3=BASE RELATIVE AnDRESS OF DATA BASE NAME 
CTsG2LENGTH OF DATA BASE NAME IN BITS 


MERGE OUTPUT 


TRESWD CLUSEsDM 
TNNLIT DATA BASE NAME 
<EXCEPTION CLAUSE> 
le VERIFY THAT IT IS A DATABASE*NAME 
24 CHANGE CLOSE TO OMsCLOSE BEFORE OUTPUTC(NEW VERB) 


36 LOOK UP DATA BASE NAME IN TABLE BY OCUR» OUTPUT THE NAME 


CREATE /RECRES ES 


le 


2s 


CREATE/RECREATE <DATASET® NAME> 
CON EXCEPTION <STATEMENT> CELSE <STATEMENT? 1 


CTsaVERB=18 
CTsORJECTFINVOKEsNOs PATHaNO 
CTsADVERR= 
BIT 3 =OMSTATUS FORMAT 
OSBINARY 
LtDECIMAL 4 RIT 
BIT 4 =”"0N EXCEPTION" 
BIT 8 s"RECREATE* 
CTsl2BIT LENGTH OF DM@STATUS REGISTER 
CTse2=BASE RELATIVE ADDRESS OF DM*STATUS REGISTER 
CTe3=8IT LENGTH OF THE DATASET RECORD WORK AREA 
CTs4=2BASE RELATIVE ADDRESS OF THE DATASET RECORD WORK AREA 


MERGE OUTPUT 


TRESWD CREATE/RECREATE 
TINTGR INVOKEsNUM OF DATASET@= NAME 
TINTGR PATHeNUM OF DATASET“*NAME 
TWORD DATASET@*NAME 

<EXCEPTION CLAUSE> 


VERIFY THE DATASET*NAME 


OUTPUT THE DATASET*NAME AND PATH INFO 


STORE 


~ 


STORE «<DATASET#=NAME> 
{ON EXCEPTION <STATEMENT> CELSE <STATEMENT>)) 


CTsVERB=16 
CTsOBUYECTRINVOKEs NO» -PATHsNO 
CT.ADVERSS 
BIT 3. =PMSTATUS FORMAT 
OrBINARY 
TspECImMAL 4 BIT 
BIT 4 #"ON EXCEPTION" 
CTslsglT LENGTH OF DM=STATUS REGISTER 
CTs2=BASE RELATIVE ANDORESS OF OM*STATUS REGISTER 
CTs32BIT LENGTH OF THE DATASET RECORD WORK AREA 
CTe42BASE RELATIVE ADDRESS OF THE DATASET RECORD WORK AREA 


MERGE OUTPUT 


TRESWD STORE 
TINTGR INVOKEsNUM OF DATASET@“NAME | 
TINTGR PATHsNUM OF DATASET*NAME 
TWORD DATASET@NAME 

“EXCEPTION CLAUSE> 


leo VERIFY THE DATASET@NAME 


26 QUTPUT THE DATASET*NAME AND PATH INFO 


DELETE 


DELETE <NATASET@NAME> 
CON EXCEPTION <STATEMENT> CELSE <STATEMENT? J) 


CTsVERS=17 
CTeOBJECTHINVOKEsNOe FPATHENU 
CTsADVERH= 
BIT 3 =OMSTATUS FORMAT 
OI:BINARY 
TIOECIMAL 4 RIT 
BIT 4 2*0ON EXCEPTION" 
CTelepltT LENGTH OF DM=STATUS REGISTER 7 
CTse2=BASE RELATIVE ADDRESS OF Om@=STATUS REGISTER 
CTs32BIT LENGTH OF THE DATASET RECORD WORK AREA 
CTs#4*BASE RELATIVE ADDRESS OF THE DATASET RECORD WORK AREA 


MERGE OUTPUT 


TRESWD OEFLETE 
TINTGR INVOKEsNUM OF DATASET#NAME 
TINTGR PATHseNUM OF DATASET*NAME 
TWORD DATASET@NAME 

<EXCEPTION CLAUSE> 


la VERIFY THE DATASET@=NAME 


2s OUTPUT THE DATASET*NAME ANO PATH INFO 
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FREE 


FREE <DATASET=NAME> 
[ON EXCEPTION <STATEMENT> CELSE <STATEMENT? 2) 


CTs VERB=21 
CTsOBVECTFINVOKE.NOs PATHsNO 
CTsADVERR= 
BIT 3. =NMSTATUS FORMAT 
OSBINARY 
LeDECIMAL 4 BIT 
BIT 4 "ON EXCEPTION" 
CTelzBIT LENGTH OF OM=STATUS REGISTER 
CTs22HASE RELATIVE ADDRESS OF DM*=STATUS REGISTER 


MERGE QUTPUT 


TRESWDO FREE 
TINTGR INVOKEsNUM OF DATASET“NAME 
TINTGR PATHsNUM OF DATASET*NAME 
TWORD DATASET@NAME 

EXCEPTION CLAUSE> 


1, VERIFY THE DATASET=NAME 


24 OUTPUT THE DATASET*NAME AND PATH INFO 


INSERT/REMOVE 


1s 


INSERT <DATASET@NAME> INTO <SUBSET@NAME> 
CON EXCEPTION <STATEMENT> CELSE <STATEMENT?2) 


REMOVE CURRENT FROM <SUBSET“NAME? | 
CON EXCEPTION <STATEMENT> CELSE <STATEMENT?1)) 


CTsVERB=16 FOR INSERT» 17 FOR REMOVE 
CTsQOBJECTSINVOKE.NOs PATHsNO OF SUBSET@NAME 
CTseADVERRS 


BIT 1 =ON 
BIT 3 B2DMSTATUS FORMAT 
Os: BINARY 


LeOECIMAL 4 BIT 


BIT 4 


a"ON EXCEPTION" 


CTel2zBIT LENGTH OF Om=@STATUS REGISTER 
CTse22BASE RELATIVE ADDRESS UF DM*STATUS REGISTER 
CTs B2INVOKE eNOS PATHseNO OF DATASET*NAME 


MERGE QUTPUT 


TRESWOD 
TINTGR 
TINTGR 
TWORD 

TINTGR 
TINTGR 
TWORD 


INSERT/REMOVE 


~ENVOKEsSNUM OF DATASET@NAME 


PATHsNUM OF DATASET*NAME 
DATASET*NAME OR TRESWO CURRENT 
INVOKE oNUM OF SUBSET*NAME 
PATHsNUM OF SUBSET™NAME 
SUBSET@NAME 

<EXCEPTION CLAUSE> 


VERIFY THE DATASET*NAME TO BE A 
PROPER TARGET DATASET OF THE SUBSET*™NAME 
AND OUTPUT IT WITH ITS PATH INFO 


OUTPUT THE TARGET DATASET*NAME AND ITS PATH INFO 


CTsVERBS ARE LIKE THOSE FOR STORE AND DELETEs 
THEY ARE OLSTINGUISHED BY BIT 1 OF CT«VERBs 


FOR REMOVE» 


INVOKE NUM AND PATH NUM OF DATASET ARE ZERO: 
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12? 


FIND/MODIFY 


CURRENT PATH FORMAT 


FINDO/MODIFY C<DATASET@NAME> VIA] 
<DATASET"NAME>/<SUBSET*NAME>/<ORDER®™ NAME>/<RETRIEVAL *NAME> 
CON EXCEPTION <STATEMENT> CELSE <STATEMENT>)} 


ORDERED ACCESS FORMAT 


FIND/MODIFY C<DATASET#@NAME> VIA) 
NEXT/PRIOR/FIRST/LAST 
<DATASET*NAMED>/<SUBSET*NAME>/<ORDER*NAME> 
CON EXCEPTION <STATEMENT> CELSE <STATEMENT>)) 


RANDOM ACCESS FORMAT 


FIND/MONDIFY CDOATASET*®NAME VIA] 
[NEXT] <SUBSET*NAME>/<ORDER@NAME>/SRETRIEVAL @NAME> 
AT <COMPONENT@NAME"1> = <DATA*NAMETI>/<SLITERAL™1> 
CAND <COMPONENT@NAME@2> = <DATANAME@22/<LITERAL@2> ]oe0 
[ON EXCEPTION <STATEMENT> CELSE <STATEMENT>)) 


NOTE? THE "<DATASET#=NAME> VIA" CLAUSE TS MANDATORY 
WHEN THE PATH IS A <SUBSET*NAME> 


CTsVERB=15 
CT.OBUVECTZINVOKESNOs PATHseNO OF THE PATH#NAME 
CTsADVERB= 
BIT 3 FOMSTATUS FORMAT 
OLIBINARY 
LIOECIMAL 4 BIT 
BIT 4 =QON EXCEPTION" 
BIT 6 ="MODIFY" 
BIT 7"11eTYPE OF SELECTION EXPRESSION 
O:NEXxT 
1:PRIOR 
2:FIRST 
3:3LAST 
G4tnExT AND "AT™ CLAUSE 
5S iCURRENT 
6r"aAT" CLAUSE 
BIT 12 =TYPE OF PATH 
O8KEY — 
LIDATASET 


CTel#BIT LENGTH OF DM=STATUS REGISTER 
CTse2=BASE RELATIVE ADDRESS OF DM@STATUS REGISTER 
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CTs32BIT LENGTH OF THE DATASET RECORD WORKAREA 

CTs4=BASE RELATIVE ADDRESS OF THE DATASET RECORD WORK AREA 
CTsS52BASFE RELATIVE ADDRESS OF SEARCH KEYCCAT OF COMPONENT NAMES) 
CTs6SINVOKE®NO* PATHs NO OF DATASET@NAME ~ 


MERGE OUTPUT 


TRESWD FIND/MODIFY 

TINTGR INVOKEsNUM OF DATASET#NAME 
TINTGR PATHsNUM OF DATASET@NAME 
TWORD DATASET*®NAME 

TINTGR INVOKE«sNUM OF THE PATH 
TINTGR PATHsNUM OF THE PATH 

TWORD PATH NAME 


CTRESWD NEXT/FIRST/PRIOR/LASTI 


<SELECTION EXPRESSION> 
<EXCEPTION CLAUSE> 


WHERE <SELECTION EXPRESSION> IS! 


lo 


30 


Ke 


TWORD COMPONENT @=NAME 
TRESWHO "a" 
TWORD/LITERAL 

‘ 

‘ 

’ 


VERIFY THE PATH NAME TO BE A PROPER PATH 
TO THE DATASETPNAME AND OUTPUT THE PATH INFO 


OUTPUT THE TARGET DATASET®NAME AND ITS PATH INFO 
(SUPPLY THE PARENT OCUR AS A TWORD TOKEN 
IF THE DATASET®NAME IS OMITTED) 


VERIFY THE COMPONENT@NAME LIST TO BE IN THE PROPER ORDER WITH NO 
NAMES MISSING FROM THE LIST 


THE TYPE OF THE PATH NAME IS DATASET IF BIT 7 OF THE ONFLAGS 
1S ON IN THE PATHNAMEs THIS BIT IS USED AS THE FILLER FLAG IN 
THE DATA DIVISIONs j 7 


DATSYN 
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le WHEN DATASET IS DECLARED ALLOCATE A SEPARATE WORK AREA FOR IT 


26 WHEN AN ENTRY WITH LEVEL#51i» 52s OR 53 IS DECLARED» 
TREAT IT LIKE AN 88 


36 VERIFY THE UNIQUENESS OF THE 01 DATASET*NAMES WITHIN A DB 
AND DATA BASE NAMES 


EXPLODE 


ds CHANGE TWORD TO TINDEX FOR ITEMS WITH 
LEVEL #51 THRU S3(NONE IN PROCEDURE RESOLVE «FACTORS? 
IN ORDER TO RESTRICT THE USE OF PATH NAMES To 
THE DMs VERBS 


PROSYN PROCESSING 


is PARSE THE “ON EXCEPTION ooe” CLAUSE OF THE DMs VERBS 


CODEGEN 


te GENERATE COMMUNICATES CORRESPONDING TO DM VERBS 


FIXUP PROCESSING 


le 


26 


PATHsDICT+RLOCK( PDR) 


{ NOT USED | €CeravSseswsaoas 


IODOLsNUMBERCE4 BITS)I 


| meamass ae anaceannaanae | 


i | <"=PATH.NO 


| w@aseeaenacawerocanews | 


THE COMPILER ASSIGNS A PATH NUMBER T 
PATH NAME DECLARED IN THE DATA™AASE 
(CEeGs DATASET*NAMEs SUBSET™NAMEs 
ORDER*NAME» RETRIEVAL @NAME) 


THE PATH DICTIONARY BLOCKCPDB) CONTA 
PATH DICTIONARY ENTRY CPOE) FOR EACH 
THE PDE CONTAINS THE 64 BIT DOL“NUMB 
ASSOCIATED WITH THAT PATH NAMES 


THE PATHsNO AND INVOKEsNO ARE USED T 
THE DESIRED PATH TO A DATASET RECORD 
IS USED AS AN INDEX INTO THE PATHs«DI 
TO GET THE NDL*NUMBERe THE INVOKE+«NO 
IS USED TO IDENTIFY THE INFORMATION 
A DATASET RFCORD WHERE THAT DATASET 
HAS BEEN INVOKED MORE THAN ONCE. 


PPB” 

| ' 
i 
1 
l 
jess anaweennaeanmaaneane 
IPATHsOICTsBLOCKsPTR 


1 
i 
i 
{ 
| 
J Perens eon eenaae= | 
{ 
l 
| 
| 
1 


a ee 


O EACH UNIQUE 
SECTION 


INS A 
PATH NAMEs 
ER 


0 IDENTIFY 


« THE PATH®NO 
CTIONARY 


ABOUT 
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SAMPLE DATA@BASE SECTION 


\ 


DATA*BASE SECTION, 
OB UNIVERSITIESs 
O01 STUDENT INVOKE UNIV@PERSONNELs 
®OL1 UNIV®PERSONNEL DATASET DOL“NUMBER 88 
ORDERING KEY PERSNAMES DOL“NUMBER 73 
CLASTNAMEsFIRSTNAME ) 
RETRIEVAL KEY PERSMAUORS DDL “NUMBER ge 
(MAJOR) 
RETRIEVAL KEY PERSAGES DDL*NUMBER @ 
CAGE Ds 
O2 NAME @ 
03 LASTNAME PC X(15). 
O3 INITIAL PC Xe 
O03 FIRSTNAME PC X(10)s 
O02 SEX PC 9 CMP. 
O02 AGE PC 99 CMP, 
02 CORSE*NOS OCCURS Ge 
03 DEPT PC XX. 
03 NMBR PC 999 CMPe | 
02 COURSE SUBSET DDL@"NUMBER 6 
TO UNIV#*COURSES DOL*NUMBER 14 
(DEPARTMENT»LEVEL Jo 
O02 MAJOR PC xXC4)o 
O2 SALARY PC 9(5)V99 CMP. 
O02 ADVISOR SUBSET DOL*NUMBER 16 
TO UNIV@PERSONNEL DOLSNUMBER 886 
O1 FACULTY INVOKE UNIV®@PERSONNELs 
*O1 UNIV*PERSONNEL DATASET DDL“NUMBER 88 


*-e* 4¢ 8A e BH eee eH HHH OH HH BD 


GRDERING KEY PERSNAMES DDL"NUMBER 73 
CLASTNAME*SFIRSTNAME) 
RETRIEVAL KEY PERSMAJORS DOES NUMBER 82 
(MAJOR) 
RETRIEVAL KEY PERSAGES DOL"NUMBER 2 
CAGE Ds 
O02 NAMEs 


03 LASTNAME PC X(€10)0 
O3 INITIAL PC Xa 
03 FIRSTNAME PC X(10)6 
O2 SEX PC 9 CMPs. . 
O02 AGE PC 99 CMP, 
O2 CORSE#®NNS OCCURS Ga 
03 DEPT PC XX 
03 NMBR PC 999 CMPe 
O2 COURSE SUBSET BDDL™NUMBER B 
TO UNIV*COURSES DOLSNUMBER 14 
CDEPARTMENT*LEVEL do 


2en8 384 OD HORSE RHR EH EH HH 
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OCUR INV# PATH# TGTx# CN 


aawte eens Bante sean ae 


01 
02 


03 
04 


05 


06 


01 
01 


01 


01 


01 


01 


02 
02 


02 


02 


02 


05 


07 
01 
02 
03 


04 


05 


01 
01 


01 


01 


06 


Oi 


01 
01 


01 


01 


25 
34 


29 


44 


25 
34 


29 


41 


CN 


27 


42 


27 


* 2% 8 


od 


*-epeeepnepee ee eeneuene ene he 6 #8 4 SH 


PA 


02 MAJOR PC XC4)a 
O02 SALARY PC 9(5)V99 CMP 
02 ADVISOR SUBSET DOL®NUMBER 16 
TO UNIV®*PERSONNEL ODL@NUMBER B68. 
O1 U@COURSES INVOKE UNIV@COURSES. 
O1 UNIV*®COURSES DATASET DDL*™NUMBER 14 
ORDERING KEY DEPTLEVELS DDOL*®NUMBER 32 
CDEPARTMENT*sLEVEL) . 
RETRIEVAL KEY CLASS#§2 ODL NUMBER 34 
CCLASS*SIZE) 
RETRIEVAL KEY DEPTS DOL@®NUMBER 12 
(DEPARTMENT). 
O02 DEPARTMENT PC XX. 
O02 LEVEL FC 999 CMP. 
O02 PROFESSOR SUBSET DOL“=NUMBER 33 
TO UNIV@PERSONNEL DDL*NUMBER 88. 
02 BOOKS DATASET DDL@"NUMBER 7o 
O03 TITLE PC X(60). 
03 AUTHOR FC XC30)6 
O2 DAYS*OF=“WEEK PC XXX. 
02 BUILDING PC 999 CMPa. 
O02 ROOM PC XXe 
O2 CLASS*SIZE PC 99 CMP. 
O2 STUDENTS DATASET DOL™"NUMBER 38 
ORDERING KEY STUDNAMES DOL@NUMBER 71 
CLAST@NAMESFIRST™NAME Do 
03 LAST*NAME PC x¢15). 
03 FIRST=NAME PC X(10).6 


TH DICTIONARY TABLE 


PATHsNO STRUCTURE «NO 


@E|eOa Oe ODne es * Bmuet®@na nanan es 


0 NOT USED 
i 88 
2 re 
3 82 
4 02 
5 08 
6 14 
7 16 
8 32 
9 34- 
10 12 
i1 33 
12 07 
13 38 
14 71 


GENERAL COMMENTS 


le 


02 
03 
03 
03 


03 


03 


03 


03 
03 


07 


06° 


08 
09 


10 


11 
12 


13 
14 
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0% 


06 
06 
06 


06 


01 
12 


i3 
13 


ai 


50 


4i 


53 


THE SOURCE IMAGES WITH AN “*** ARE PROVIDED BY THE DASOL COMPILER 


42 


26 
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AS A LIBRARY FILE TO THE COBOL COMPILER 


THE INVOKED NAME [TS THE NAME OF THAT FILE AND 
IS NOT A PROPER DATANAME CF THE DATSET 


—CEeGe SHUNTIVERSTIT*/"UNIV=PERSO") 


36 


cw 


66 


PAT 


DEC 
1 P 
2 


PO A) PO FO AD PO 


iT 
2 
2 


#fFJ 


THE NAME "STUDENT REPLACES THE WORD “UNI V*PERSONNEL*® AT OCURS3 
THE NAME "UNIV™=PERSONNEL" IS DELETED WHEN IT APPEARS AS THE 
TARGET DATASET*@NAME OF ADVISOR AT OCCUR219 AND OCUR=36 


“DATABASE” SECTION APPEARS TO BE A FILE NAMECOCUR=1) 
WHOSE SCUPE INCLUDES ALL DATAsBASE DATANAMESCSCOPE=54) 


COMPONENT NAMES APPEAR TO BE QUALIFIED BY 

WDATA®BASE” AND MUST NOT BE QUALIFIED wHEN REFERENCED 
THIS SPECIAL NAMING CONVENTION ALLOWS UNIDENTIFIED 
COMPONENT@"NAMES IN THE CASE WHERE THE TARGET DATASET@NAME 
OF A SUBSET IS NOT INVOKED 

WHEN OUPLICATE COMPONENT NAMES EXIST THEN THE OCUR OF 
LAST OF THE DUPLICATES WILL BE RETURNED . 

CEeGe LASTNAME APPEARS AT OCURSS AND OCUR=25) 

NDL WILL GUARANTEE THE UNIQUENESS OF COMPONENT®NAMES 

IN THE DATABASE 


THE INVOKE NUMBER STARTS AT 1 ANDO IS BUMPED FOR 
EACH INVOKE SPECIFIED 


THE PATHsNO IS ASSIGNED BY SEQUENTIALLY 

SEARCHING THE PATH,sOICTIONARY. TABLE FOR A 

MATCHING STRUCTURE NUMBERs IF A MATCH IS NOT 

FOUND THEN THE NEW STRUCTURE NUMBER IS ADDED TO 

THE END OF THE TARBLEs THE INDEX INTO THE TABLE 

1S THE PATH*#NO« NOTE THAT THE DDOLSNUMBER IN THE EXAMPLE CONTAINS 
ONLY THE STRUCTURE NUMBERCTHE TIME AND DATE PART 

HAS BEEN OMITED FOR CLARITY) 


H TABLE AND ALGORITHM FOR ITS CONSTRUCTION 

LARE 

ATHse TABLE REMAPS BASE*s 
PATHsOCUR BITCi2)» 
LASTeENTRYsLINK | BITC24)» 
PATHS TYPE BIT(C3)s 
INVOKE «NUM BITC8)» 
PATHseNUM BITC8)s — 
TARGET «PATHe NUM BIT(8)>» 
COMP sOCURCMAXeCOMP) BITC12)> 
ARGETs«STACK €16)>» 

TSeLEVEL BIT(B)s 
TSePATH BIT¢(8)3 


ND A PATHNAME 
TXON FOLLOWED. BY "DATASET" OR TXON WITH LEVEL NUMBER 51°535 
STOP ON “WORKING#*STORAGE SECTION® OR "PROCEDURE OIVISION", 
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“FILL IN PATH*sOCUR 


FILL IN PATH@TYPE 
DETERMINE TYPE FROM LEVEL NUMBER _ 


LEVEL TYPE 

01 0 DATASET#*NAME 

O2"49 i DATASET*@NAMECNESTEDO) 
Si 2 ORDER@NAME 

52 3 RETRIEVAL *@NAME 

53 4 SUBSE T*@NAME 


“IF LEVEL = O14 THEN CURRENT INVOKE NUMBER GETS BUMPED, 
@FILL IN INVOKE «NUM 


“FILL IN PATHsNUM | 
DETERMINE FROM LOOKING UP DDL# IN PATH DICTIONARYS IF NOT 
FOUND» AND NEW ENTRYo 


@eADUUST TARGET STACK 


POP STACK UNTIL LEVEL ON TOP IS LESS THAN CURRENT LEVEL COR 
STACK EMPTY)« IF CURRENT LEVEL < 50 (DATASET) THEN PUSH NEW ENTRY« 


“FILL IN TRGT+«PATHeNUM - 
IF TARGET DOL# IS EXPLICIT» FIND FROM PATH DICTIONARY» ADDING A 
NEW ENTRY IF NECESSARYe IF TARGET IS IMPLICIT THEN USE PATH 
ON TOP OF TARGET STACKse 


* FILL IN AN OCUR FOR EACH COMPONENT@NAME WHICH 
FOLLOWS IN THE PARENTHESIZED LISTs AND AN EXTRA 
OCUR OF ZERO » TERMINATING THE LISTe 


DESIGN FEATURES +s 


SOURCE LANGUAGE SELECTIONs 
MULTI®PHASE COMPILATION. 
DEBUGGING CAPABILITIES: 
DYNAMIC MEMORY, 
INTERMEDIATE FILE DESIGNe 


INITIAL PARSING CPARSE), 


INPUT FILESs 

OUTPUT FILES~ 
GENERAL FUNCTIONS. 
RESERVED wORD LOOKUP. 
SPECIAL FUNCTIONS. 
MONITOR SENTENCE, 
DATE*COMPILEDs 
OBJECT@=COMPUTER, 
SPECTAL “NAMES s 

DATA DIVISION: 

FILE SECTION: 
WORKING@STORAGE SECTIONs 
PROCEDURE DIVISION. 
DYNAMIC MEMORYa: 
INPUT FILES« 

QUTPUT FILES. 
GENERAL FUNCTIONSs 
DICTIONARY SEARCH. 
DYNAMIC MEMORY, 
PASS Te 

PASS Ile 


INPUT FILESs 
QUTPUT FILESs 
GENERAL FUNCTIONS, 
SCOPE OF AN ENTRYe 
DYNAMIC MEMORY: 
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